WF 



23 

BE 

W 

"III 

3* 



" ¥ 

LAhiFL OOOOOOOOOPHIMrKOOli'blOOCC EX UBJtC T /r<e AdjF ILE SUURCLF I LE*S YMBOl/M aKC a3T ; F>L/* 



OBJECT /PEAO 



"STM B'2> "* : T/p^cAsT 



■*»• 



*_ 

41, 
14? 
43 
44 
46 

-. 

49 
50 
61 
62 
53 
54 
55 
56 
5? 



• *• 



,.- r - 



8EGIN COMMENT 



VCH SYMBOLIC SUBPROGRAM TAPl MAINTENANCE 
U T 1 L If Y r l; U T I N t; ; 



10 

1 1 



161 
IV, 

ia L 
ia 

ir 
'zi 

»j 

M l_ 

..u 
rr 

29 

10 
31 

,n 
:a 

it: 
Y)~ 

Ih 

m 

•10 

> i 

42 
43 
44 
15 
«6 
47 
48 
4» 
50 
51 
52 
53 
54 
56 
5fi 
67 



COMMENT 



TITLE* B5500/B570Q *ANft XIV SYSTEM RELEASE * 

FILE ID: SYMBOl/MAkCASI TAPt 101 S YMBOH /F ILEOOO * 
THIS MATERIAL IS PRGPR. J .gT.Ah Y TO 13URKQ.U.G.H5 . CO.REflHAT.UQN *. 

AND IS NCT TO SE REPHOJU CE L > USED* UR DISCLOSED 
EXCEPT IN ACCORDANCE M'lH PROGRAM LICENSE OR UPON 

WRITTEN AW.ImR.lZ All OfcL UF.lhtL PATENT QI,V..LS.I..QM...Qf 

BURROUGHS CORPORATION* DETROIT, MlCnlGAN 4fi232 



COPYRIGHT 
AA3202C6 



ICi. 1? 71,.. 19/2 

AAJ93160 



Surt.hQ.L.QHi CQRjQP.QRA.Tim 



* 
* 

* 
* 



aCUiXAN 
BOOLEAN 
BOOLEAN 
.DEFINE 

DEFINE 

INTEGER 

BOOLEAN 

INTEGER 

INTEGER 



ARRAY 

sing; 

PATCH/ 
PFRQM6: 



DP.£NXO««Ji 



ATOG, PATCH 
■IF..J9LISTQG 
IF MPUNTOG 

PFR0MM=IF MLlSTO^ 

IF MPLNTQG 

NEWRC, EDROW, ED 

INTE 

CCBUFFJ 

BCCLE 

r e c c o ; 2 'j ; 

FINARHtCIS. 



ARRAY 
ARRAY 

row; 



ctog; 
qr listug 'h£n 
or puntog then 

THEN PpP.UM 1J 
. THEN.. PPM... [4.6.1 l..j, 
POS, IMOUUT* BCQ 
GER IMG* REL, 

AN 61 > 



5); 

INTEGER RR*IW 



PPP.U7f 1 J*U 

PHP,, C 46 I ll + li'ii 

♦ 1; 

tlLl! 

ut; 
rc; 



boolean END 

BOOLEAN RENAMET 

BOOLEAN LlSTOG 

...INTEGER SEQINC 

SAVE ARRAY TES 

DUMY; % 

FILE CASTA 

FILE CASTB 

FIlE CASTC 

IN Z "OCRD 



REAL 
SAVE 

s'aVe 
Save 
file 
file 

FILE 

FILE 
FILE 



IN A DISK 
IN B DISK 

IN C..DIS.K 

OUT LINE 4 
DEFINE 
.f-lkL_Qin....£MC.b.._ 
SWITCH FILE FOU 
SWITCH FILE FIN 
3A1L FJLE CFA." 
CF8 
CFC 
_SWlJcH FILE CF 
BOOLEAN COPY TOG 
SAVE ARRAY DUM 

INTEGER — GJJj, 



TOG J 

QG; 
,PUNTCG, 

/WLIhlLD.L 

TARR [C«2 
DO NOT R 
DISK SER 
DISK SER 
DISK SfR 

.1*0." t.l» 5 
SERIAL 
SERIAL 

. SERIAL 

(2,ib); 

PPINTlIN 
.Q_LLtLC.il 
T«-CASTA'C 
* A,B,C»2 

C_STa_U.£. 

"CASTB"C 1 
"CASTC"(1 

t-_CFA,£,Fe 



SEUATCW, 

X.i 

6i; 

EMOVE THI 
lAL.t20.i.l 

lAL C2051 
lAL C2051 
6*1Q1*„.CA 
"CASTA" 
"CASTB" 

"CASTC" 

ARRAY PR I 
E = WRITE. 



seuctcu* withtcg* aftertog; 



S CARD 
00 j "C.A. 
00 J "Ca 
j « c a 

Rp Utic 

"LIBRAR 
"LiBRAh 
iLlMAh 
NT C 8 1 
lUlNE* 3 



S.JA""LIBRARY"( 
ST6 ,, "Lie'-<ARY"( 

STL""LlbRAHY"C 

it $.QLI_.L*.i_».l 

Y»Cl,56), 
Y"C1*56)> 
IVLLr'sAl) 

5#PRINT[*3 )#; 



1*56»Sa 
l ,5t,SA 

Oil 



Y.E 2.11.. 

VE 2)> 
v£ 2); 



ASTB»CASTC / 

,CARQ,50LT > 
56' SAVE l_00)f 



,56, Save 

* 5 6 , S A V E 
tClCJ ._ 



100), 

ioo); 



oooooioo 
00000200 

U.O.JUQJ.Q.Q 

00000310 

00000311 

0.00QQ.3L2. 

00000313 

0000031a 

Q.QQ00315. 
00000316 
00000317 
.00400118 
00OUO319 
000OO400 
00000500 
00000600 
00000700 
.6.0 00 OM.Q. 
0C000900 

ooooiooo 
q_.ujlli.q._. 

00U01200 
00001300 
.000014-0.0 
00001500 
000016C0 
00001650 
00001700 
0000180C 

ooooiooo 

00002000 
00002100 
0.00.02200 
00002300 
00002310 
00002400 
00002500 
00002505 

Q..Q .902.5.JLQ... 

00002515 

00002600 

00002/00 

00002800 

00002850 

Q QUQ290 

00003000 

00003100 

JL(__L3__Q_ 



00003300 
00003400 
00003500 



MY[0J9]# PATCHDUMMYtO«9j> 



DEFINE TEST1* IF GT5XC TH£N IF GT 5*1 THEN GO TO tlO ELSE GO T Q" E9 

INTEGER ADDINDEX; 
_ _ INTEGER X;_ 



#; 



00003600 
00003700 

0003800 



INTEGER TEMP, LlBCUTl 
LABEL MORE* LASTCARD* 
LABE L EO, El, E2_*_E3_f_E_l 



00003900 

OOOOIOOO 
00OC410O 



x, libinix; 

, E5* E6, E/ * Ibf E ? >_ _1L°_1 



00004200 
00004300 
00004400 



SAVE ARRAY 



'23 
2A 

K 
■J, 

Bt: 1 
2S, 

3,1 
.11 
32 
13 
M 






l« 
46 

H 

■48 



INTEGE 
INTEGE 



aCCUmACO: 7]> ACCowBCO: t \> 
COMMENT THESE ARRAYS 

1U.. AC AN AND 

CARDS. EVENT 
IFIERS A 

I. AQC.ywA.._UN 

WILL ALWAYS 

hllH A. U C 1 U 

P.m.! CH_ 

RE PL AC 
DELETE 

IMMi 

A C C J M B CAN 

WILL ALWAYS 

M..TH .. AFTER... 

WITH I 

ACCUMC CAN 

WILL ALA AYS 

WITH R 1 1\ A M E 

COMMENT N 

COMMENT... U 

T 

a 

COMMENT FOR 
INOEX lGCaT 



2. 



r na»nb,nc*no; 

R IMCRi 



INTEGER iDENTlXi 



A C C U h 

ARE P 

«L.C.L 

oAlly 
fpear 

t .NA. . 
CON i 

LNTIF 

JjjJEfU. 

t IDE 

1DEK 

iJLLB.. 

L NB 
CqNT 

LM.EM 

C NC 
...CQNI 
iOLN 
L, OF 

pt.U..-.b 
HE AB 
OFFER 
MAKE 

ES BL 



C t : 7 

A5SED 

iy.t £ 

> THE 
1IMG 
w_Hl_Ch 

AIN f 
iLR 
1I.1LR 
NT If I 
T I F ■ 1 E 
tlC._ C 
KHlCh 
AIN T 
Flirt . 
FIER 
WHICH 
A I.N T 

r i f i e 

CriAR 
Y. S.LB 
SOLUT 

POSI 

SUBC 

Q B ftH 



3»ACCUwDCOin»ACCUMECOi9]; 
BY SUBCChANDLER 

Q.NI.E.MJ5 U£.SUE£gjilJiOI 

Y rtiLL STORE VARIOUS IDENT 
N THE SU8C0NTRQL CARD. 

TELLS HOW M ANY CHARS) 

HE 1DEMFIER ASSOCIATED 



ER 
R 

MAR.E OR DIS PLAY 
TEuLS hOw MANY 
HE IDENTIFIER 



_fiiifl££i 



CHARS) 
ASSOCIATED 



INTEGE 

B 

B 
B 

B 
B 



R . 2QILE 
DQLEAN 

DP LEAN 

OBLEAN 

DOLE AN 

.Q.OLEAA. 



MP./ 

RETURN* COMMENT 

.ADD .I.c.G.;_ C.O.KMEN.I 
ADD XX E 

adoendtog;comme 

ADD XY2 

addaftertog; go 

ADD 
PA I CH.IQG,, REPLAC. 



BOOLEAN 



SWITCH FOR 
C ******* 

c " * ***** 

(«****#* 

(»♦*** *** 

( ******,#** 



MAT SWF 
******* 
******* 
******* 
******* 
******* 



),(♦•****** 

RE UNSUCCE 
( 

"Nb"~INPUf"T 
( 
XOKY^Ji. 



MLISTOG*MPUNT 

.-.ME.RR10G ,;.......... 

«- (" ")* 

** JGB TERMlNAI 

*t...A.ca ieR.mj.mi 

** job comple te 
** job teRminat 

** JOg TERMINATE 



USED BY PRQC 
Tij SIGNAL C 
...SXJ F.U.R. ...MAKE 
TC.i 
NT SET FOR MAKE SUB 

£.[vir-QR ADD. XYZ _QN 

I* MEM SET FOR MA*E 
XYZ ON B AFTER BLO 

LlQ^Q.£LUEl.U.Gi 

COMMENT 
ADDTOG INUIC 

_ .MAiiE. XUN.C.II.Q. 

IF NONE ARE 
A SUBCC OF T 

ENTERED t l\ 

THAT BLOB CA 
OG/C1RTOG* OlSTQG* 



TELLS HOW MANY CHARS) 
HE. I.D£ N T J£-l£fi_A.5.5 Q CI A Led. 

Hi 

S, IN ACCUMA---ACCUMD; 

C..C H A N.D L..L.R- CO IM.T AlhtS.,. 

E ADDRESS OF NEXT 
TION TC BE SCANNED; 

C OF r Y.PE. jcxx ilh . B* . T-H IS.. 

ERE O-A 

l = b 
-2 = C 

3=CCR0 

4=CARD reader; 

eduhe subcchandler 
ontinoaTiok cards; 
. .s.u d.e.c ... of j y.p£ ....,_ _.... 



CC OF TYPE 

a_.£jta.ajLa.i.-Eic*; 

SUBCC OF TYPE 
bX ETC.; 



THESE THREE ANO 
ATE BASIC TYPE OF 
6L..1 BE PER FORMED. 
SET* WE CAN ASSUME 
YPE "XY2 ON B" WAS 
nTIX TE L LS WH ERE 

n be found; 
mktog#mkftog» 



ED. LRRCR IN MASTER CONTROL CARD,")* 
i.D, ER ROR IM SUBCONTROL CARD,")* 



Q0U0450Q 
0G0G4600 

.aQO 0,4,7 .0.G.. 

-00004800 
00004900 

_ 0000500.0; 
00005 100 
00005200 

J1UP.U.5..20J1 

00005400 
00005500 

00005700 
00005800 

QQO 0..5 9.Q0 

00006000 
00006100 
0.0006200 
00006300 
OOOG64OQ 
0.0.006 50 
00006600 
00006700 

0QQG6&00 

00006900 
00007000 
0OOU7100 
00007200 
00007300 

0.QJJ0.7.AQD 

00007500 
00007600 

. QGAm/.ZO.Q 

00007800 
00007900 

QDoaaaoa.. 

00008100 
00008200 
.0.QJJ0.8.3.Q.Q 

00008400 
00008500 

_MM6M 

00008700 
00008800 

.juQUiifla.ao- 

00009000 
00009100 
QnOQ9?QQ 

00009300 

00009400 

,_QQjU09 50Q- 



- NO ERROR S 
£0" ITEM NOT 

P-DIHECTQRV 



ITUATIONS ENCOUNTERED")* 00009600 
FOUND IN -..DIRECTORY"), 00009700 

n tap e has Improper FORMAT»ooQQ9aoo 



*********jCB TERMINATEO-THREE ATTEMPTS TO POSITION THE TAPE W 

SSFUL")» 

"a************** JflB__T_ERNlNAlED._ MAKE ..FUNCTION DELETE OPTION 

APE SPECIFIED")* 

***************** jqb TERHlNATED. PROGRAM NOT PRESENT IN DiRE 



E00009900 
00010000 
„0Q_Q10lQfl_ 



00010200 
C00O103O0 
...QM1&40J1 



• t 



14 

I 

14 

II,, 

in! 
v.* 

IB 

hi 

ij 
' 2, _ 

23 

1* 

la 

27 
28 
19 

30 
31 

m 






43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
S3 
54 
i5 
)6 



(»***••*** job TERMINATED. REFERENCED PROGRAM 
T TAPE,")' 

.(."* *+.***.****_****_* J.QJ1 .lEliRlNATED... 

OH")* ("********** jcB TERMINATED. ADD TYPE 
STREAM PROCEDURE F I XF lBa( A* a ) i 

VALUE BJ __ 

BEGIN 

local x*y; 

LABEL. EXIT.;- - - __ 

si *a; si*si+a; bcsi*si+8); 

di «• loc x; DS * wds; SI * x; si* 

D.I ...«• LQC...XJ D.-,..* ...W.D.S1. _LL _...XJ. .Sit... 

x * si; si * si + 40; si <- s i+^o; ski 

IF SB THEN BEGIN Di «- XI SKIP 43 Dd ; 

OS.*.. SET.; G.Q. EXl r ENO-i 

EXITJ END FIXFtBi>; 
PROCEDURE PAG; 



NCI FORWARD ON MASTER INP 

U [.PUT TARE QlRLCUmX QV-LHE 

DIRECTORY OVERFLOW); 



si+16; 

SI + 40/ ... 

H 7 sb; 



aeaiN 

IF 

rag; 



BOOLEAN 

BEGIN LOCAL X; 



NOT '3INU THEN WR I TE ( L 1N£ C P AGE! ) ; 
STREAM PROCEDURE LiLU.KU?,LA*..U.lE.6£.t.ZU&.U - -JUUJLS. i»i... 



END 



si*a; di*t; mcdi*di+8); 

BEGIN TALLY *4.;.-L00KU.P.*IALlY/S.I*SI-Z 

THEN BEGIN X*Dl; SI*X; 

di*-n; oi*di + 7;os*chr;ui*t 

ENO..ENO; 

COMMENT A IS ACCUM* T IS TE5TARH* TEMP I 

FOUND* M IS NuOUT-VALUE, M IS M 

end lookup; - - _ — 

BOOLEAN STREAM PROCEDURE Lt*-ALNUMU, 

BEGIN LABEL L#F»EXIT* LOCAL T/ 
lALLY*l.i __L_AL„__±IA_J__. SltA 

si*si + i; re if scs"0" then beg 

ELSE JUMP OUT 1 TO Fi L»); END 

T A L L Y * U ... 1 A L L. Y.±I AL L Y _+__> .. .1* J ALL Y 

comment now input convert t chr 
di*n; si*a; ds* t oct » go to e 

F: TALLY*0; L£G/i*LNUM*TALLYi 

EXIT J END LEGALNUMI 



IF 7 SCSDC THEN 

; .._ I* o i -z; _i F„..__.__ca_o _. 

emp/di*ui+?;ds*1 lit"!"; 

s boolean for equality 
idoce; 



n); 

si*n; di*lOc T> ds*wds; 

; ...IE . sxl=.!'1:'. ..ih_ej_ B£fi___. 

in si*si+i; go to l; end 

ElSfc; GO TO F; 

; 

Si 
XI T* 



BOOLEAN STREAM PROCEDURE^ LEG ALJOC A, N ) ; VALINE NJj. 



BEGIN 
Bl 



LABEL EXIT/ BAD' B>FJ 

Sl*A/ IF SC»AlPHA THEN GO B ELSE GO BAD; 
_Nf IF SCsALPHA TH EN BEGIN 



UOOUlOiOO 
00010600 

LQO-O-iGZOO 
00010800 
00010820 

aaoioaao. 

00010840 

00010850 

. .OODi-0860 

00010870 

00010880 
flOO 10.85.0 

00010891 
00010892 
00010893 
00010894 
00010900 
000 11 ooo 
oooinoo 

0G01120Q 

ao..u.m_a.a 

00011400 

00011SOO 

-O-QQUdOO. 

00011/00 
00011600 

. ao.0Ll.900 
00012000 
00012100 

..OO-O.i.220-0 
00012300 
00012400 

_flflfi.l2Jifl.a_ 
00012600 
00012700 
0.001280.0... 
00012900 
00013000 

_£ 0.1 .lift Q... 

00013200 
00013300 

o__2_3_o_ 

00013500 
00013600 
00013700 



IF SC2 "0 M THEN GO F ELSE BEGIN 

tally*i; go f; eno; 
._ ._ _ end; 



00013800 
000U900 
.OOJJAAMO. 



F« 



IF SC*"-" THEN JUMP OUT TO BAD; 00014010 

si*si + i; ); - 00014020 

SI + SI- l; IF SC» W - W THEN GO BAD ELSE GO 0001 4Q30 



BAD' 
E X I T» 



tally*o; 
legalip»tall y; 



exit; 



00014035 
00014040 
00014090 



END OF LEGALID; 
INTEGER PROCEDURE 5CANSEARCHC ACCUM#N ) J 
ARRAY AC CUM. 03J INTEGER Nj 



BEGIN 



00014060 
00014100 
00014200 



*1 



INTEGER LOW,HIGH#MIODLE#NUUUT 
LABEL EXIT»A; 

-BODL- A N TE MPI-. 



00014300 
00014400 
QQ0145QQ 



ft 

H 

3 

4 

M 

6 

7 



9 
10 






INTEGER 


„ 


BOUL.EAN 


28 

29, 

to 

Ml 


LOCAL T 


SI 




i 1 
J4 

.ill) 

x""~ 


- C.J 

AJ 
0$ 

B.I 

OUX 


39 1 

k 


PROCEOU 



'43 

*5 
4ti 

r ; 

4rt 

l»9j 

bo' 

Sl| 

52 " 

53 

54 

55 

5ci 

5? 



COMMENT SCANSEAHCH UIlL h I c<l U O-ERRljR 

1 ThHU Id « RESEHVED ^DS 

- ~l/l.s... LEGAL- 10ENT _ 

20* LEGAL NUMERIC/ 
IE N>7 THEN GO TO A/ HJGh*27J LOfc«-0; 

WH.I.LE.CHI.G.H-L0.W1>1 _.D.Q fa&fljJil MlQULE<-( HlGH+LOW 301 V 2/ 

IF LOOKUPC ACCUHC*J»TEjTaRRL*]*TEmP*i\LQO'I'MIDQLE; THEN BEGIN 
IF TEMP THEN GO tU EXIT ELSE HIGH*mI DDLt END 

ELSE....LUW*MtaDLEX..END.i - - _ 

COMMENT VALUE IN ACCuM lb NOT RESERVEU hQ; 

At IF LEGALIDCACCUMfN) THEN BEGIN NU0UT*19; GO TO exit; end 

...... EL-SE-B-E G4-N- - -M* JM g 1 i- - - - 

IF LEGALNUM(ACCUH#N) ThfcN NuUuT«-20 ELSE NUOUT <-0; END; 
EXIT! SCANiEARCH* NUUUT; END SCANSEaRCH; 

STREAM PROCEDURE. PRlMC.LCtINE4.CARU J > 

BEGIN 

di*line; cs*« lit " *; 

si*- card; o-s*. q wqs* 

OS* 16 LIT " "; OS ♦• rfOS* 

2csi«-line; cs* kDsn; 

END PRINTCCJ 

STREAM PROCEDURE ZOT CZOTTEMP* CHAR* BUF FEH )i 
VALUE char; 

BEGIN Dl*ZUTT£MP; ... St*BUFFERJ. .QStHOSJ . ._. . - 

Dl*BUFFEK; SI«-LOC BUFFER; SI*3I-1> D^«-CHR; 
END PROCEDURE ZOi; 

STREAM PROCEDURL . MKABSXAJ/ 

BEGIN 0I«-A; MKA8S*0i; END PROCEDURE MKABS; 
STREAM PROCEDURE LEGALCCC NCrIN, NCRV » RETURN ) J 

- VALUE KCRVJ BEGIN. -LUC.A.L T1J LABEL A.j.ajIlUJtA£xDJ„ - _. 

emp; 

SI«- NCRV; DULUC ti; UI* 01 + 2; DS* 6 LIT M $$SS-$"; 

at* 01 = hi. _ 

if 3 sc*dc then go to a; 

si*si-3; IF 3 SCsOC then go to b; 

T.ALLYikAl LEGALLC <r.T..AL.L.Y.i....GQ m._ 0..U..X,; 

di*return; 01*01 + 7; ds* 1 l i r •♦ a " ; 
tally*i; legalcc«-tally; gu.io aux; 

di ♦.REiufiiu ..ai*m± 1 i as* l_l.ii ... "i v± ...gl t a .ui _ 

j Ti*sj; ui*ncrn; 

SI* LOC Ti; os+wds; 

E.N.D..P.RQ.G£D.U.R.I..L£GAL.C.Ci..„..„ _ _ 

re readacard; 

begin if not cchuff then heleasec card j else 

ccbufk + false ;__ 

PRINTCC (PRlNTtoi* CA"RD(0))i PRINTLINE; 
ZQTCZCTTEMP, »%", CARDC9 ) ) ; 
NfeR±_MKi.BS. (CARD(Q)); _ 

END PROCEDURE REAUACARDi 

BOOLEAN STREAM PROCEDURE SC AN( ACCUM#N, NCKN* NCRV J ; 

VALUE _NCRVi _ __ 

BEGIN LABEL A* C * RESETNCR* SETNuMCHR* '\i , CUXJ 
LOCAL TEMP; 

&Lfc_M£flja DUACCUM; . . 



2(35UF SC = " 
AJ TALLY*!; IF 



" THEN 
SC*"*" 



2 to a;>); 
setnumchr; 



63(DS*-ChR; IF SC*"*" 
SCb" "THEN JUMP 

.y» q ; Scam»tally; 



si*si+i else jump out 
then begin ds*chn; go 
end; 

THEN JUMP OUT I TO C; IF 

out 1 to c; tally*tally+i;>; 

LJLi _ 



00014600 
0001*700 
00.014800 
00014900 
00015000 

aaotsioa 

00015200 
00015300 
HCUJ .15-4 00 . 
00015500 
00015600 

..aoiiiS-JT-ac 

00015800 

00015900 

00.016000 

00016100 

00016200 

00-016-300 

00016400 

00016500 

Q.OU 16600- 

00016700 

00016800 

00.0.46.900 

00017000 
00017100 

oootzaaa 

00017300 

00017400 

...oaoi 7.50a. 

00017600 
00017700 

..ooiux&aa- 

00017900 
00018000 

...0&Q.1BJLQH 

00018200 
00018300 

.. Qa.04.fi AOQ, 
00018500 
00018600 

0018 700 

00018800 
00018900 
00019000 



00019100 
00019200 

oao_L9io_o„ 

00019400 
00019500 
000 19600 
00019700 
00019800 
00 1 99 0Q 



00020000 

00020100 

jQQ0_*0200 



00020300 
00020400 

ia_. 



• t 



«n« 



cjkesetncn 
sf: inumchr: 

Qs 

ouxs 



TEMP«-S_; 

TEMP*TALLY; 

TALLY* U. 

end; 



Ul«-l\CNlvi; oI«-L0C TfcMF; (;S«- t .OS; 

si«-loc tf.mh; di*n; us«-wds; 

i> CAN* TALLY > _ 



COMMENT 



18 

IS.: 
ht 
21 
2.'.': 
2:i 

; n 

>f:I 
_/ 

30. 

11 



I 

I!) 
*0 

,1 
.? 

43 
44 
■15 
46 
4"' 
«8 
49 
50 
61 
52 
53 
)4 
55 
>6 
57 



OEFINE AMORE* 



THE FOLLOWING DEFINES A«t USED BY PROCEDURE SUBCCHANDLER 

IN S£AMlIMfi_£.NlJJl£A_HN._IhL r.AWn. _ 

1. SCANPERCENTERROR EXPECTS TO FIND ADDITIONAL INFO ON 
CONTINUATION CAhiOS IF a 1 sign IS ENCOUNTERED AND WILL 

FINALLY MING. CJ_J.L...T.h£ Ni.JU £!_.T1T Y. . WjJ,h ..__= .VALUE.. Of ScAN- 

SEARCH. IF IN READING THE CARDS An ERROR SITUATION IS 
ENCOUNTERED. PROGR. WILL BRANCh TO ERROREXIT IN 

SUH.C_CMAKD.LER/ .. _L_L_L£. _____ AJ_D.1T I.O.N A L . I NF.O_.0N ..CABQS _ 

SCANPERCENTEXIT KILL SEARCH CONTINUATION CARDSUF 
NECESSARYJAND BKInG UUT ThE NEXT ENTITY WITH X=VALUE 
.SCAN.SEJ.RCti* IF NO MORE INED* PROGRAM ulu BRANCH JO 

goodexit; 



2. 



of 



define bmqre= do 



do 

...BEGIN FILL ACCUMAL* ._....* Ilh OCT 6 ______ 6.Q.6.Q6. ____flj_i_.fi.Q i 

IF NOT SCAN(ACCLMA#NA#NCR*NCH) 

THEM GO TO LHROREXiT/ 
-.11 J-*S.tAh5iiLA.HCH..C.AtCU>lAf._.A...«_fl...TKL.N ...fill LRKQRLxiT _ 

IF X*18 THEN 
BEGIN IF NOT RETURN THEr\ GO To BADGOOD t W ] ; 
RE ADA C.ARP.L If ...J_QT. LE..fi.A.LCCiJiCJL__MCB__fi£.Ili_.l. 

THEN GO TO thRUREXITj 

end; end until x/ ie. *; 



end; end 
define cm0rf » 



DEFINE 



end; end 

DMORE" 
BEGIN 

THEN 



BEGIN FILL ACCUMBt*] WITH DCT6060606060606060; 
IF NOT SCAN(ACCUM6#Nb'NCh*NCR) 

THEN ...GO TO iftBDBJL_.lTJ 

IF X«-SCANSEAHCH(ACCuMtf>Nb) = o THEN GO ERROREXIT' 
IF X^IS THEN 

BEGIN IF NOT R ETU.R.N ..T h f-N_GQ I. P.. BAl_GQaDj_t_j; 

RFADACARD; IF NOT L E G A L C C C N C R > N C R * R E T U R N J 
THEN GO TO ERROREXIT; 
UNTIL X /i6 }#i 
DO 
BEGIN FILL ACCUMC[*3 WJTH OCT 6060606060606060; 

IF NQ..I S.CAllCAC.C.LhC#..NC^C^..!iCRl„ 

THEN 00 TO ERROREXIT; 

IF X*SCANSEARCH(ACCOMC*NO)aO then go errqrexIt; 

IF.Xs.18 .LhEi- _ 

BEGIN IF NOT KETONn THEN GO TO dADGOODCHj; 

READACAhD; IF mqt LEG ALCC (|\CR# NCR* RETURN ) 
_ _ I.H..LN_ GO TO ERRQREXIT _ 

/is ;#; 



UNTIL 
DO 

f ILL. . AJE.CjjMDI_*J_Wi.lH ...JM.6..06Q.6Q6Q6.fiAP_M60; _ 
IF NOT SCAN(ACCUMU,ND'NCR*NCr) 
GC TO ERROREXIT* 
IF X«-SCANSEA RCH(ACCUWD, NJ1) s.0 J H EN GO ER R OREXI T ._ 



OCO4.O6OO 
00020700 
00U2 06 00 
00020900 
00021000 
... Qfl.Q2Xl.0_Q_ 
000*1200 
00021300 
.QQ__214Q0 
00021500 

00021600 
Q.Q.0._.12QC 
00021600 
0CU^1900 
. Q.0O 22.000 
00022100 
00022200 
.Q.QQ223QQ 
00022400 
00022500 
Q__.0_.i_ 60.Q. 

00O22700 

00022800 

. 000229.0.0. 

00023000 
00CJ231Q0 

Q0.0232QQ 

00023300 

00023400 

Q.QQ.235.Q.Q. 

00023600 

00023700 

-Q.0_O2.3flQQ.. 

00023900 

00024000 

00 2 4.1 0. Q 

00024200 
00024300 

.. 0.0.0 IMQii 

00024500 
00024600 

-ag_--_A700- 
00024800 

00024900 
00025000 



END 



DEFINE ASCANPERCENTERROR* 

DEFINE BSCANPERCENTERRORs 

_____£ .._J_J__C_S C. AN p £R C ENTERR0R« 



IF X*16 THEN 

begin if not return then go to badgoqdcwji 

. REAPACAHDHF NO T LEQALCCt NCR,NCR, RETURN . 
THEN GO TO ERROREXIT; 

END* 

., WlU -telM*J 



00025100 
00025200 
002 5300 

00025400 

00025500 

_QJ_J_____.6.0.Q.. 



00025700 

00025800 

-OQ025.9ja.0_ 



w«-i;amore «; 
w*i; bmqre#; 
w»l. chore »; 



00026000 
00026100 
0002620 
00026300 
00026400 
00026500 



T* 



i 
• 



28 

29 ( 

30 . 



33 
34 
35 I 
36 
37 



39 



47 
48 
49 



52 

53 I 



56 I 



m 



DEFINE DSCANPERCENTERROK = W*l» DimGKE*; 

DEFINE ASCANPF.RCENTEXIT = ri+2; AMORE* ' 
.JD.£FJ^£L..a.S.C.A.NP£JlCl.NI£XlI-.5_Ji>_2J.xlMiRi*J. 

DEFINE CSCANPERCENTEXIT «W*2JCM0RE #; 

DEFINE DSCANPERCENTEXIT* H*2;DM0RE #; 
HEf I RE T EST £ N DlC ARA _U_.taj. AMflREJJL .__. 



5t . 

l- 
'-rj. 

24 



27 

J" 

|eai 

30 
pi " 

a? 
in 

:.V|- 
38, 

f"! 
H 

Hi' 

,«l 

43 

44 

,6_ 

46 

47 

48 

43 

50 

51 

52 

53 



COMMENT LAST DEFINE TESTS 
FOR LEGAu END CARD 

, _-,- _ ...aiiNj-XN-u a mm. n o t- a l l n w r n 

FOR ENO CARDS; 
INTEGER PROCEDURE SuBCCHanDlEr; 
BEGIN I6ITE££B_.._ij_.„fiiWMENI_JiS£Ji_Ii]_lJSli£X SWITCH BAOrQOOJ 



LABEL 



ID, 



AD#L1#L2»l3*L**L*A#L5/L6*l/»L8*PAT,REP#H1* 

DEL' Dl# Z2f IDENT, 
L3A, PATAf 

LA, 

ERROREXIT^GOODEXIT^ENDEXIT, QUXj 

SWITCH 8ADGQ0D*. E.RROREXIT* aOODEXITfENDEXl U 
RE AD A CAROi 
IF NO! lE^AlCCCnCR, NCR, RETURN) TH(_N 

C.QMM.tN.T. NOT * *.$... OR 

TRUE IF CONTINUATION CARDSj 
COMMENT TERMINATE _F NOTHING ON 

- lURCO. .OR I.LL.EGAL~.CAfiQ.§* _J. 

IF X = 8 THEN BEGIN IF RETURN THEN 
ERROREXIT* TESTEnDCARD Gu ERROREXIT; END; 

CUMMENJ ..If WE RETURN Fiig.M...I.E_ST.END£AHU 

THEN SUBCC HAS END PLUS GARBAGE; 
THEN GO TO AD; COMMENT ADO CARD; 

_T.H£ii._fifl_T_QLQELJ _.j^MEM.J_LULl£_CABlU __... 

OR X=2b THEN GO TO Pat; COMMENT PATCH CARD; 
IF X*H THEN GO TO REr 3 ' COMMENT REP CAR0> 
..If X=19_.1H£.n. GIL ISLAQJ. ......C.tLMMEM..-£.ARO SlARLS-JOlH 



000^6600 
00026700 

ao^dh.&aa . 

00026900 

00027000 

_j_ILQ224~fla- 

00027200 
000*7300 
nno^nn 
00027500 
00027600 

.-0.00. 2770 0-. 

000^7800 

00027900 

Q 0018.0.0.0. 

00028100 
00028200 

011028300 

00028400 
00028500 



ascanpercenterrqr; 



GO 



IF 



IF 

IF. 
Xsll 



X»2 
.X.«Z. 



AD* 



go to errorexit; 
ascanpercenterror 

I E Xg 19 JM N. _GJQ_ Ifl . . £.R ft Q R.EX.1. T. .. . . 

addtqg«-true; 

addin0ex«-a; comment tentatively 

_ _ M. AY a E. 

CSCANPERCENTEXIT 

IF X*10 THEN GO TO L2; 

.__£S£ANB£H££Jil£fififlfi 

IF X = 4 THEN BEGIN ADUiNDEX+o; GO 
IF X«5 THEN BEGIN ADDlNOEXMi GO 

■I£-JLaA-JLHtN JJEOIiiL-AaaiiiO-E-X » 2 ; &CL 



go to errorexit; 

*->.-.,. RE.lUH.Ci 15 SO 000.2.8 6.Q0 

00028700 
00028800 
O.Q028.5.Q_0. 
00029000 
00029100 
..00_02.92QQ 

00029300 
00029400 

_ ___ fl__P__i.__5.QiL 

00029600 

000.19700 

Jfl£N.I.I£i.0_QPi9._LaQ 

000^9900 
OOOJOOOO 

; ...- Q.OQ. JO 1.0.0 .. 

00030200 
SET SOURCE TO CARDSt 00030300 

Q.n.A.M£D....lE_WJL.U 

00030500 
COMMENT X»10» W 0N M ; 00030600 

Afl.JLiQ.ZflA. 



la; 
la; 



end; 
end; 

-EMLL 



COMMENT 
COMMENT 
COMMENT 



••a"; 

«B"; 



L2« 



LAI 



IF X«l THEN BEGIN ADD1N0EX*3; GO LA; END; 
IF X*26 THEN BEGIN AOOlNDEXtS; GO LA;END; 

CSCANPERCENTEXIT; 

IF X*3 THEN GO TO L3; COMMENT 
LIX CSCANPERCE NTE RR OR 



COMMENT 
COMMENT 



M 0CRD"; 

solt; 



00030800 
00030900 
-000310 00 - 



00031100 
0003H50 
00031200 - 



X=3*"AFTER"; 



IF X*19 THEN -GO TO ERROREXIT; COMMENT X*19*I0ENTIFIERi 



OOU31300 
00031400 
00031500. 



AQPAF TERTOG* TRUE; 



13A; 
L3« 



L4I 



BSCANPERCENTEXIT GO TO l*li 
IF X*8 THEN GO TO L4; 
ADDENOTrG+ TRUFJ G n TU L3A; 



00031600 

00031700 
0Q31B00 



COMMENT Xs8* w END M ; 



IF X/13 THEN GO TO 
BSCANPERCENTEftROR 
If X*19 THEN GO TO 



l5; comment x« 13*"rename«; 
errorex it; comment legal ide nt ifier; 



00031900 
00032000 

00 03 2100, 



00032200 
00032300 
0003 24 00. 



T* 



• • 



131 
14 

IS, 
I"" 

vj 

IB 
I!) 

?J 
,3V 

d 



271 
Ml 

N 

Ml 

31 

W" 
3i; 

|3ii 

i 37_ 

„>M 

3!)j 
4u 



43 
44 
4b 
46 
47 
48 



L4A : 
L.5' 

L6« 

17* 

L8» 



50 
51 
52 
53 
54 
56 
56 
67 



PAT.: 



Rl* 

DEL: 



01' 

02' 
ID' 



RENAMETOG<-TRuEi 

dscanpehcentex.it; 

IF JL*.a._LhEJ£ ..GO. ILL L-6J 

LISTOGMRUE; GO TU L^Ai 
IF XX12 THEN GO TO l? > 

PUNTOG ._* TRUEl-G-O W-xMU 

IF X/15 THEN GO TO L3> DSCANPERCEnTeRROR 
IF X»20 THEN BEGIN SEuAtQC^TRIE; SEWI NC«"ND; 



... ... .£ OMMLN J.„. X* V.5. M L I S T " J 

COMMENT X»12*"PUNCH M i 



COMMENT N0T"I0ENTIFIER"; 

COMMENT NOT"rtlTH»; 



C QmmEM NO T "JO-EN TIE I£.H ».j. 



IF SEQCTOG 

J HEN.JiQ. T.Q.iR8g iiUli G.Q 1 U L_4 Mi.hU. Ei, S£ GiLE.RRQ.R£XIT 

IF XX16 THEN GO TO ERRUREXlT; 
DSCANPERCENTERROR 

IF X.3 2f...TH£.ti BJfeiiLl.l!i.„SEfl£lilQ..*.lJ?Ai£l.--a£.QlHC.*".(iOJ._lF JS£MT£fi. _ . 

then go to errohtxlt; go to l4a; end 
else go to enrokexit; 

PA.lCH.IH.G«-IR.U£i 

if x«n then patchaTqg<-true else paTchct og«-true; 

ASCANPERCENTERROR 

IE X i 1 9. Th£N GO J.Q £ RROR£ xiJJ COMMENT X«i?»lIlE_N TIE t£R.i 

go to rata; comment test rename* list* 

PUNCHf SE.fl»ETC; 
R£P..« R£PLACETOGtIRg£.^ HIJ.HlNllO.tAi __ „ 

cscanpercenterror 

IF X*19 THEN GO TO ERkQREXIH 

A$CAMP.EaCENT£X.lT 

IF XM7 THEN GO TO l4* 

ascanpercenterror 

IF X/19 THEN. GO fO ERHOREXl li 

BSCANPERCENTERRCR 

IF XX1C THEN GO TO ERRORExlH COMMENT NOT "ON"* 

bscanpercenterror _ - —. -. _ 

if x»4 then begin hi tmlnoex*0; go to ri;end; comment " 

IF X«5 THEN 6EGIN *i I THlNQEX* i; GO rO Hi; END'COMMENT "9 

lF-.X3.fi. JHfcN ttEfilM ..Al.mkNllLX.t2 J GO X..U... .Ail_£JiiIUXLfljll!£AJ._.riC. 

IF X*l THEN BEGIN W ITHlND£X«.3, «Q TO RUENDJ COMMENT 

IF Xa26 THEN BEGIN W I TH I NDEX+5 ; GO RHENO; COMMENT SOLT 

. GO TO.ERRUREXIIi _. ■ 

mthtqg *■ true; go to l3aj 
deletetdg*-true; 

A5C.A.NP£R££.N.I£BE0Ji-.._ 

if xx19 then go to errqrexlt* comment not identifier; 
bscanpercentexit 

i£.-.x^9.......lmen...g.q...tq..j12/._.. comment nqt"list"i ^ 

listog*true;go tq oh 

IF X*12 THEN GO TO EHHOREXIt; COMMENT NOT "PUNCH"; 

pontog»true;go to oh 

if distdg then go to 01 ; 

pata: if patchtog then ioent ix«-l ib in ix else identixmj 

as C ANPFRCEN TFXIT 

IF XX1C THEN 
BSCANPERCENTERROR 
If XM THEN BEGIN IOEiMTlX«-Q * GO T O L3A> ENO; COMMENT "A"; 



A n ; 
'*; 

.?J 

)CRD 



000 32500 

00032600 

Q00.J27OQ. 

00032800 

00032900 

00 03-3.00 

00033100 
00033200 

fQQ9J,MQQ 
00033400 
00033500 
000336.00. 

00033700 

00033800 

Qfl.U.33900 

00034000 

00034100 

Q003420Q. 

00034300 

00034400 

Q0.aiA5.QQ 

00034600 

00034700 

00034400 

00034900 

0003S000 

.04035.10-0 
00035200 
00035300 

00035400 
00035500 

00035600 
...0.0.0 3.5.7.00. 
;00035800 

00035850 

00035900. 
00036000 
00036100 
... 0Q.Q.iiL2.Q.Q... 
00036300 
00036400 
00036*500 



00036600 

00036700 

00036800 



GO TO Lui COMMENT NOT "ON"; 



000 36900 

000 37000 

,OJ3, 3 7lJlO_. 



IF X*5 THEN BEGIN IDENTIXM; GO TO L3A; 
IF X*6 THEN BEGIN IDENTIX*2; GO TO UAt 
IP X»l TflEN BEGIN I0£NTlx»3; GO TO L3AJ 



IF X»26 THEN BEGIN 
ERROREXIT: SUBCCHANDLER«-Oi GO 
GQOD EXITI __ SyBCCHANDLERM * GO 



I0ENTlX«-5; 

to uux; 
to oux; 



endkqmment "b w ; 
endkqmment h c"; 

ENDKQMMENT QCRQ 



00037200 
00037300 
0003740 



go l3a;eno; comment solt* 



00037500 
00037600 

;00037700 



ENOEXITI SU8CCHAN0UER*2; ENDTOG*TRUEJ 

CLOSE(CARO» RELEASE); 
QUXi END PROCE DURE SUBCCHANOlEW; 



00037750 
00037800 
00037900 



00038000 
00038050 
00036100 



IP 



SAVE ARRAY DIRECTORY tC I 1 1 # : 5 1» J ; 00036200 

COMMENT FQUN j-r3Y-56 DIKECTOR IES .F IRST 3 00038300 

lLAA.YS....iaP-Ul.-AtiD XAS1 fll.HEC.TjlRl_AiJlAlJi N£W _Q_0fl.3 8 <L0 _ 

ONE BEING GENERATED. 00038500 ~ " ~" ' " " ft 

EACH ENTRY IN THE DIRECTORY HASJ 00038600 

1 CHARACI£JL«M_«ALMfl£fi Of -CJlBJL..Jj^L_Iil£_JLD£N.II£XEE nnoaa/nn 

N CHARACTER' Thfc IDENTIFIER 00038800 
3 CHArtACTEH*bRN«STARTU(« RECORD NUMBER. 00038900 5 

- ALS.O-*. EJ-RSI HiJJEU3_aF...-EAtH OF _ IH£- I R E C T Q R I &&. £0UJ-90iU)-. 

contains 1>2> or 3 corresponding to « of 00039100 " i 7 

blocks in this directory, 00039200 8 

4-J ONuX-AS-ilAltiXJlXfl^-aua-CXS- AS NEEDED nnu-tgaoo _ {9 

2) ENTRIES NUT SPLIT ACROSS BLOCK. 00039400 

3) IF n = AND SRNsO THEiv DIR CONTINUED IN 00039500 
JVfc-XT.._.Bi..U.CJL QQUJ960Q _ _ „__ 

4) IF N»0 AND SRNXO THEN THIS IS THE END OF 00039700 ~ I 13 

, T THE DIRECTORY; 00039800 

INTEGER GT.U ..G.T2# GT3* GTXj STY.» OU T PUTVf PPPi 00.039900 

LABEL MAKEFuNCTlON»DlSPLAYFUNCTlON»UuTPUT#AA*Bfl*CC,DD; 00040000 

BOOLEAN OISPSUBCC* DIRlNlTj OOOaOlOO 

STREAM PROCEDURE STMSPAC.E..Ca.UFFi; QO.O-4-02UJO 

COMMENT THIS IS CHARACTER MODE SUb'pKOCEDURE 00040300 
OF ROUTINE "SPACE" which GENERATES SPACES ON THE00040400 



fa, 



[■ - line-phj^txh; _ - qoo40§.04 

BEGIN OI«-OUFF; 2 ( 60 ( OS«-L I T " "i))j 00040600 

END STMSPACEi 00040700 

PROCEDURE SPACERCX); Q05«QfiflO. 

VAuUE X; INTEGER X; 00040900 

BEGIN INTEGER k} 00041000 

-- FOR ...A*i._S.I£P. 1 UNTIL. .ABSU) 0.Q _ . .. 00.0JLL1Q0 



WRITECLINE)' 00041300 



14 1 



45 
46 
47 
«t 
49 
50 
51 
52 
53 
54 
55 

5(3 



.-BXiiJJi n noa^H Op 

READ(FINUNP3,56*DIRECTCKYIC»*]).J 00043900 



4 



17 | 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

000<U200 2S 

29 ( 

..iio-OJUAoa - _ 3o 

31 
32 ( 

33 



STMSPACECPRINTCOJ); 00041500 

END SPACE; 00041600 

- STRE AM PROCEDURE MS VE(N*.A>B J ;vaj..UEN; , 0.00.41700 _ 

COMMENT MuVtS N WORDS FROM A TO B) 00041800 " " ~~ 34 

BEGIN SI*AJ Oi«-B# DS*N ^DS> 00041900 

,, - - - LN.y..._JiO.VE >...._... 0004200Q 

BOOLEAN PROCEDURE RE ADDI RECTORY C I NP ) ; ~ "" 00042100 

INTEGER INP; 00042200 

J - - - B..EGIN. _ _ __ _ __ 00042300 

H INTEGER B; "00042400 

COMMENT RETURNS FALSE IF FIRST 00042500 

- - - _ .__ WU.3P OF D.IrttCTQRJf .<1 HH_>.3J Q_Q0_4260fl 

INTEGER CJ 00042700 

LABEL EXIT; 00042800 

- - J>!JiP^3* O C + U _ ^_ 00042900 

READDIRECTQRY4-TRUE; ~" * ~" ~ 00043000 

HEADCFINLINPJ, 56, U JREC TOR Y [1 NPx 3* * j ) ; 00043100 
-.- - _... R.«:0IR.ECTJRYClNPx3*0J; _ . QQ043 200 

if b>3 oh b<1 then begin 00043300 

heaodirectory«-false; 00043400 

* GO TO EXITf 00043500 

END/ ~ ~~~ " 00043600 

WHILE H*3-l>0 00 00043700 



35 ( 

36 
37 
38 ( 

39 
40 

41 < 
42 



45 
46 
47 ( 
48 
49 
50 ( 
51 
52 
53 ( 
54 
55 
56 i 



00044000 

-oafljuuLfliL W 



• t 



1,' 

1S 



■ii 

J8| 

H 

.in 

31 



ii 

1 411 
I 
■l I 

»Vl 

43 

44 

45 

46 

4/ 

4a 

49 
50 
51 
52 
53 
54 
55 
5ft 

6?_ 



C*-C + i> 
ENOJ 

E.X.I.T. i .JEJlili JiEUuD J3JJ4 t.C.IUK Y > 

STREAM PROCEDURE I RHEADI NQCBUFFER ) » 

COMMENT HEADING FOR DIRECTORY; 

bE-GIN „Ol±iJUf££Ri 

20CDS+LIT"*"; )/ 0S*17 L 1 T"D 1 RECTORY IN THE "J 
0S*34 LI') "UNDER THAI ThL ENTITIES APPEAR ON "J 
US*.- Lll".IAPE»i _j__D_»*Ul."i?J._U 

eno oirheading; 

BOOLEAN STREAM PROCEDURE s TRMPR1 NTD IKECTQRYCI NDEX, LINE ) i 

- £Q.MitLN.T ChlRA£.T.£.H...MflDE....SilflEflUCLQURE . 

UF ROUTINE "PR I M IRECTOH Y w ; 
BEGIN 

UJ-CaL N* MA_ 

LABEL EXIT; 

DI*LINE; _CdS«-60 LIT" ";)> TALLY*-l; 

SIMNGEXJ-J-._.HJ-£.-Ji-_.J. DStWD..&i._JLX.fcNAi 

dialog n; uudi + 7; 

IF SC="u" 1'htN BEGIN TALLY*Ci 

GO T-U. EXlTi- - - 

end; 
ds*chr; 

. di*line; CiitD.i±32; _.__ _ 

n(us«-chr); ui*udc nj e. i «- d i + 5 ; ps«-3 chr; 
na*si; oimndex; si«-lqc na> ds*wds; 

__.*LIN_.> - .OltlHiZQi _ 

Sl^LOC Hi Ui>«-6 DEC; 
EXIT: SlRMPRINTOlhECTOKYfrTALLY; 

END STHMPJiltVTOIEECTORY. ...■ _..._ 

PROCEDURE PRlNTOlRECTCRY(lA); 

VALUE IX> 1MEGER ix; 

BEGIN. JNTLGiR DLMNUE_Cj_A_jfcU „ 

LABEL PRNT; 
B*DIRECTORY[Ix#OJ; A*0; 

-DlRhEADlNGlPRlNTtOI).; 

PRINTLINE; SPACER(U/ DO BEGIN 

A 4- A + 1 ; 

DIRIivJiLXME 4#J THEN M^AB.SJ.DlJiEj;.ULaiLiX.xOj.i_ 

ELSE KiKABS (DIRECTORY [ IX# 1 3 ) ; 
PRNT» IF STRMPRINTDIRECTORYCDIKINOEX, PRInTCO]} 

THEN &£_L1N _ 

PRINTLINE; 

Gu TO prnt; 

._ END; 

i x«- 1 x ♦ i ; ~ . 

END 

- __JNl_LL fl______<_A___, 

END PRINT DIRECT DRY; 
BOOLEAN STREAM PROCEDURE L _0K I ACC ,t*,Ol h ,RQW ,ST hi POS ,ST OPOS ) ; 

.--. _ ttAUALjUUjl .. 



0004^200 
000-14300 
000 4 440.0 
0Q044500 
00044600 
.0-00.44700 
00044800 
00044900 
0.0.04500.0 
00045100 
00045200 
0.0045300 
Q0045400 
00045500 
00045600 
00045700 
00045800 

00045900 
00046000 

00U46100 
000-46200 
00046300 
00046400 
.0C0-A6.500. 
000466C0 
00046700 
00 046 8Q Q 
00046900 
00047000 

.nsismzmsL. 

00047200 
00047300 
..Q-OOAZAQO 
00047500 
00047600 
.0.0.P..4 7.1.0 Q. 
00047800 
00047900 
D_P_0.4 8Q.gC: 

00048100 
00048200 



000-18400 
00048500 
00048600 



00048700 
00048800 
0JLG_48_9_ClQ. 
00049000 
00049100 

00049200, 



BEGIN cbSMENT LOOK SEARCHES DIRECTORY FOR 00049300 
ITEM. REPORTS TRUE IF ITEM NOT IN DIRECTORY; O0049400 
LO CAL DPPOS> TEMP* LGTH; 00049500 



label loop* exit; 

si*-dir; rowcsi«-si+8); dhpos*si; 

di-lo c temp. ds»wcs; ->i»temp; 

si*si+8; 
loop* di*loc lgth; d.i»di*7J ds*chr; 

D-l J-NJ DI»DI* 7; SI»S 1- LL_, 



00049600 
00049700 
0004980 



2< 

3 
4 

= ( 
6 

7 
8< 



00049900 
00050000 
00050100 



r HE uENTHS ArtE EQUAL; 



in 



23i 

24 



n 

.10 

■.," 



r\ 

41 

45 
4C 

147 

148 - 
49 

50 

61 

52 

53 

54 

56 

56 



GO 
EXITS 

.... _ __ _■. END LttDK-i- 

BOOLEAN STREAM PROCEDURE GEINEXTBLOB 

- - ._ __■ VA LUE R OW Vt TV f 



IF SC = DC 

THLiM BEGIN COMMENT 

. . OLfeACCi — _ . 

IF LGTh SCsDC 

THEN BEGIN COMMENT FOUND IT; 

DI*SIiLIPOSJ- .QS-.*5 l4T»0-!U--4XS-*3.--CHHX 

IF SC*"J" 
THEN BLGiN COMMENT WE MAY BE IN THE 
'AttOtoii..-hQm.A- ...._ 

si*si*ii oi*lqc look; 

IF 3 3C*0C 

I.H.E.N.. JiEGiM COMMENT WRO Nfi H OWi 

iilOPPUo; 

si<-si + a; 

aej'.Qitd.i; 

dialog temp; 
DS*WOS; 

SI<-TEMPJ 

ENU 
ELiJ(r S I «- S I -.4 J 

end; 

Oi*LQc lgth; oi*di+7; us«-chk; 
si*si+lgth; 

..Oi*STOP0.Sj D3.0.S LXI M U".; 

t)5*3 chr; go to exit; 

Einu; 
. sj*jjuj; . . . . 
end 
el.se btgln comment lengths not equal; 

SJ*3I-1J 

IF Sc="0" 

THEN BtGlN COMMENT 

Al.tS.l±l>...DI*LU£. 

U 3 SC=UC 

THEN BEGIN COMMENT CHANGE ROWS; 

si*OPfos.>si«-si+8; dpp.us«-si;.. 

DULOC TE^'P; 0S*WDS; 

sa*temp; 

END. __ 

el^e begin comment not here* 
tally*i; lgok«-tally; 

GL....ULE.XIIJ _ _. 

Ei\0; 
GU to loop; 

_EliUi. . _ 

si*si+lgthjsi*si+4; comment position 

next identifier; 

Ei\Ui_ „. 

TO 



MAY BE 

..kOflK./..... . 



new row; 



TO 



.OOP. 



CUlR»ROWN*ROWv, TN*IV#ACC#N* 
GTX#GTY)# 



BEGIN LABEL L> M,EX I T* ?> X; 

LOCAL LENGTH»8*C»D»TEMP; 

_aa±.ua ' _._ 

Dl*DI+7; 
DS-fcCRRX - ■—+ - 



00030200 
000b0300 
0-0-0 3 04 00 
00030500 
00050600 

0-005.0-7-00 

00030800 
00030900 

00034004 

00051100 
00031200 

...OO.Q51JL0O- ..- 

00031400 
00031500 
00 .fib 160.0 
00031700 
00051800 

00031900 

00052000 

00052100 

000.5^00 

00032300 
0Q032400 

0003ZSOO 

OUU3260C 
00032700 

00032600 

00052900 
00033000 

oMiiioa 

00053200 
00053300 

OCl05.3J.0Q.. 

00053500 
00033600 
0..O_Q5 37Q.0. 

00053800 
00053900 

Q.G.Q3AQ.QU 

00054100 
00054200 

...O_O05„4.1.0J3 

00054400 
00054500 

OOOJiiAAao 

00054700 
00054600 

_aafliii»Jao— 

00055000 

00055100 
-009,55?00 

00055300 

00055400 
.00035500 



00055600 
00055700 
00055600- 



00035900 

00056000 

-O 00361 - 



• t 



">! 



lu 
1 1 

Ijl 

l.v 

,.l 

IS 

"j" 
1 7 

1ft 

1U 



.'4 
>., 
211 
271 
2» 
2s| 
301 
31 
32 

Ml 
"I 

n 

■V'| 
j* 

13 
44 
45 
»6 
4,' 
W 
49 
50 
51 
62 
i3 
S4 
55 
56 



M» 



Sl*bl-1 i 

DJ*-L0C LENGTH; 

■0 1 *-u4 ■*.■?.;. 

ds*chr; 



qi«-acc; 

d i * g t x ; 

. IF SCs-.'i 
BEGIN 

SI 
...1.C1F..-S.C 

si«-dir; 

R0.WV.CSi 
SI*- SI 
DI*L0C 
DS*. WDS 

TALLY*H 
TALLY*- 

SQWV*T..A 
SI* 10 
DI* R0 

os* wns 

SI*1EMP 

DI*L0C 

DI+OI+7 

ds*chr; 

C(SI*SI 

oi*gty; 

GO TO P 
COMMENT 

S.I*.HJ-....S. 

oi*gty; 

TALLY*0 

end; ca 

GU TO X 

PJ Sl*LOC 

TALLY .*...l.;. . GETNEXTJL.QB*..lALLYi 

EXITt END GET 

STREAM PROCEDURE SETD IREC T I 3NC D 

BEGIN 

lx* si*fil; 



COMME 
IN "N 

LXICAL 

LF.NiiTH(DS*C»- 
5(0S*LIT ,, 0"/ 
0" THEN 

*Sl+li 

sj'o'V Ihen. beg 

END 

*si + eu 
+ 8; 

TEMPi 

t 

uwv; 
tally + i; 

lLY> 

C ROWV; 

wn; 

JL. 

; D * S I ; 

c; 



NT lUENTlFUR LENGTH NOW 
" IN OUTSIDE WORLD AND IN 
VARIABLE ."LEJ\U1TH«; — 

); ui>*3 chr; d*si; 

COMMLNT MAYBE NEXT ROW/ 



IN Sil*Sl + i; ..GO...T0..XJ 

ELSE JLNiP QLT l TO Hi 



lo; 



.a.(.os*Li-T"o»; 

; COMME 
THlb WAS LAS 

I.*S.I.iii 

5C0S*LIT"0"; 

; GETNEXTBLOB 

MHE.N..I NOW GET 

o; di*tn; ds«-wds; 



.>..;.os*3-ch«-;- _ 

nt save "in* from "q" 

T ENTRY IN CIHECTuRy; 

); os*i chr; 
*tally; go to exit; 

GTYi 



; 



NEXTdLOB; 

ir#fid; value oirj 

label lx.j 

skip 2 sb; 



I 



_ _.S_U...Lfl£. 

skip sb; 



uir ; 



F Stf THEN BEGIN END 
ELSE GO TO LX; 



di*fil; 
skip a OBJ 



IF SB 



THEN BEGIN 

os*-9 reset; us*set; skip 4 os; 
- - qs*set; 



END 
ELSE BEGIN 
- DStA reset; DS*3 SET! DS*3 RESETJ 

skip h db; ds*keset; 
end; 
jjsLD_^ejjiiflEciiQiii_ _ 



SI- 



procedure p0stape clnph 

value inp; integer inr; 

_B£ ilN DIRECTO RYtlNPx3>03* RECCI NP3M * 



00056200 
00056300 
000 56400 
00056500 
000b6600 
00056.700 
000b6800 
00056900 

0.0.057000 

00057100 

00057200 

0005735.0. 

00057400 

00057500 

00057-600 

00057700 

00057800 

Q00579QO 

00058000 

000581.00 

QM5 .820.0. 

00058300 

00058400 

.00058500 
00058600 
00058700 
00O5B80O 
00058900 
00059000 

.04X1-5-94 00 
00059200 
00059300 

.001)59-400 
00059500 
00059600 

.000 5. 9 ZOO 
00059800 
00059900 

aao.6.o.D.Qtt 
000601C0 

00060200 
flQ0603nf) 
00060400 
00000500 
_fi&Q6_0_fiOJL. 



00060700 
00060800 
...QjQflMAQjQ. 
00061000 
00061100 

00061300 
00061400 

00061600 
00061700 

..Q_Q_oeiaCiQ 

00061900 
00062000 

000,32100 



55 
56 I 

5} 



RF.CC lNr>J«-GT/» 
GTl*CGTX*CDlMECT0RYtINPxJ»0]*3)/5>)x5 

.G.T..^ti..filX±..£MCXIkej-JJ/.i3; x...5-....._.._._J 

GT3*(G._.-i_T_)DIV b; 
SPACECFINCINP], GT3); 
........ HEADl£iN_rlli.e.l/.5.d#..f.I^ARfi.L*.nJ 



+ 1. 



STREAM PROCEDURE 



end postape; 

BU0BHD6(ACC#N*8uFF#STAHS)i 
VALU£...SIAR5AW.i_ _ _ 

BEGIN LOCAL X# 

LABEL A>8,C; 

LYi . 



ILL 

I.. 

rL 

\a 

3S 

B9| 

no i 

r r 

.2 1 

ri.3 
;w 

3a. 
.lb 

an 

_ri 

n 

141 



TALLY *.Q.i XtTAL 

si*-loc stars; 
di*lqc x; 

IF fl..5C«QC THEN 
di«-buff; ds<-4 l 
si«-acc> ua tu c 

s.uaccj _u±___u?x 

ds«-n chr; 
stars(ds*lit »•* 

EMU. .B.LllBdD.Gi 

(HEL#BUFF)# 
BEGIN 

in.tB.uET.;" sl*rel 

D5<-4 DEC> 

end; 

..P.BLNTP.Ujy£MiP/lM.GrH£LJJ 

p,img*rel; 

INTEGER P»IMG»REL; 

flE_3JL_--- - -- - 

IF P*2 THEN 
BEGIN MUVEUO, 

6EXRELCB..EL*.P.iiIN 

PRINTLINE; 
STMSPACE(PRINTCOl); 
_.£J____i 



A J 

Bl 

Ci 

STREAM PROCEDURE GETREL 



-P.BU.C_E 
VALUE 



GO .TO A. . 
IT *4SS " 

i 



«y.L___ GQ T.O.._B_i. 



FlNARRClHGxll+13, 

T.taiar; 



PRINTC2]); 



IF P>1 THEN 

BEGIN MUVE(10*FINARRC lMGxH + 1], 
RELEA.5XmLN-C-h.lJ- _...._ 



PUNCH(O)); 



end; 
end printpunch; 

_SIR LAW. P. BJUC £ DU.R.E-.5 BL.P-C.BUE Qi_ ._ _ __. 

BEGIN 

di«-buff; 2(aocds*lit" •';..; 

- _ __ EWJ_-SflLPJ - - ..._ ... 

procedure blankpunch; 

begin s«lpcponch(oj); 

_, end blankpunch; 



00UO2200 
00062300 

...QjCLQLfltSilJifl. 
00062500 
00062600 

.._LQ__.__22_1Q.. 
00002800 
00062900 

_Q_iO_sj__a_i_a. 



00063100 
00063200 
-O.Qi._-.3 300 _ 

00063400 
00063500 

..ao____j_i___a. 

00063700 
00063600 

O0..0-6 3.9.00 

00064000 
00064100 
GO.Uii-l2.aO-. 

00064300 
00064400 

-0-0064 5X10 

00064600 
00064700 

_0aO-_ -45.00- 
00064900 
00065000 

-00065100 - 



00065200 

0C065300 

00065500 
00065600 

.0-00.65700- 
00065800 
00065900 

.Dfl_L___>__.Q__... 
00066100 
00066200 

-0-3-06 6 3 00 



00066400 

0006O500 

J_OJ_666Q0 



00066700 
00066800 
0Q0 669 0Q 
00067000 
00067100 
,00067 2QQ 



PROCEDURE 



PRINTPUNALLCP); 

VALUE P; 
„:.J_J_I£JSJ___L____L_ 



B EGIN LABEL A J 



LABEL B; 



00067300 
00067400 
0Q96750 0. 



A: 



BOOLEAN BB; 

BB+GETNEXTBl OHC DIREC TORY* _U_____J-i_-__t I I * 1 1 * 



00067600 
00067700 
0Q067fl00 



ACCUMA/NA*GTXVGTY); 



postapeclibinix); 

IF pyg THEN Brfi 



_____ 



00067900 
00068000 
00068100 



• • 



■u 
II 
n; 

i"V 

is 

J* 



w 

HO 

21 



| J '' 
IM 

,f 
id 

H- 

'■ii 
;; 

43 
44 

45 
4* 

«; 

4* 
49 
50 
61 
52 
53 
Hi 
5S 
5B 



WHILE HE 

print pun 
gty*gty; 



CUIBlNlX]*GTY 
CHtP*IM.G*R£t)J 

RECCLIBINIXJ *■ 



pag; 

BLObHUtaC ACC Jl-iA* i\ A, HR j n | i } * 120-NA); 

paiNXLlNti 

spaceRcd; 

ENO; 
IF P>t. THEN BXG.IN _.. 

blankpunch; 

8lqdhdgcaccuma,m#punchc0)» 0)/ 

RELEaSEC PUNCH li 

eno; 
rel«-o; 

IMIif CREClLlB IN-I XJ - 1 *MO0 Si 

REL«-REL + 1> 



UO BEGIN 



RECCLIBI;MIX] + i; 

-lM(i*.IA6.*.lJ 

REL*-R£L + W 
IF 1MG>4 THEN 



BEGIN IM.G*0; 



Bt 

END; ENDi 

BOOLEAN 
LABEL A; 



READCHrgtLlBIMX]#b6»FlNAHRl*J); 

. IF B3 ItlE.V GO TO A; 

END PRINTPUNALL^ 
PROCEOURE SCANMASTER; 

BEGIN LABEL £&RQHEj<_l4-*£0()QEXI .I*HAX£*aI..sP-ULit*i.i-*P^l4J 



integer w* 

Switch bad good 

boolean b; 

prin 

SCAN. 

SPAC 

zorc 

N£h* 

6«-lE 
IF B 



.«- JURQAEJLLI/ G 00 OE.X .1 1 J 



:lNTt01-»CARDC0) ); 

i.M.RUEJ 



TCCCPR 
MASTER 

ercu; 

ZQTTEMP* "%"* CARCCV)]; 

MftAklC. 

GALCC( 

AND N 



Printline; 



ascanperce 

IF X = 

.._ J.f J_L 



CA«ll.LQiiA _ - 

NCR, NCRfRETURNJI 

QT RETURN THEN BEGIN END 

F.L.S£...,„GIL.T Q , ER.RUREX.1TI _ .. 

n i error; 

24 THEN GO TO DISPLAY; 

21 THEN G p 10 _M A K£i G O TU ERR OR LXJ "T ; 



MAKE* 



ASCA 
IF X 



MKTOG*TRUE 
ASCANPERCE 

l£_X=2i.,.lH 

ASCAN 
IF X> 

GO TO ER ROREXI 



npercenterror; 

>3 an0 x<7 then ll60utix*x-4 else 

G QL 10 ERRMEXXIi. 

ntexit; 

£IN BE6Jjbt._M.lS-T0 GrFA L5fc. i - MKFT Qti» T .8UE;. 



00066200 

ooocajoo 

0000 84-00 
0006B500 
00068600 

ooiibazoo. 

00060800 
0006890C 
0006V 000 
0006V100 

00069200 
.0006 9300 
00069400 
00069500 
0.0 06 9. 600 
00069/00 
00069800 

0006 9900 
00070000 
00070100 
.0QO/-G2O0 
00070300 
000/0400 
0^0/4)S00- 
000/0600 

ooo/o/oo 

0007 0800 
000/0900 
00071000 

000/1200 

000/1300 
0.0.0 ZjUOQ. 

000/1500 
00071600 
000.71700.. 
000/1800 
000/1900 
MO./. 20.0.0. 
000/2100 
00072200 
.imfl____L 
00072400 
00072500 
00072o00 



percenterror; 

3 AND X<7 THEN LlBlMX*X-4 

t; go to lispu n; end; 



000/2700 
00072800 
000/2900 
000 7 3000 
00073J00 
000732 



ELSE 



00073300 

00073400 

_M_Z__S_. 



go to a; 
displayj dist 

ASCA 



OG«-TNU£> 

nper cent error ; 

IF X>3 AND X<7 



«1 



lispuni ascanpercentexi t; 



THEN LIBINIX* X*4 
GO TO ERRQREXITI 



ELSE 



00073600 
00073700 
0007 3800 
00073900 
00074000 
00074100 



■j- 



21 



2d 
2D| 
SO. 

31 ' 
.2 

Li 
M 



r 



*,' 



I — 



45 
46 

f'l 
,4.1 

4S 1 

50 

51 

52 

63 

54 

55 

5d 

57 



IF X = 9 THEN KLISTQG*TKUE 

ELSE IF X = «cO THEN COPYTUGMRlE 

LUL IF- XS-12 IhtiV iiEUiIOG-tlRUf. 

ELSE IF X = 23 THEN n IRTUG«-TRUE 

ELSE IF X=2b THEN SING'ThUE 
G.Q .Xtl-.LKFiar±EXII.; 



LL..SE 

ascanpercentexit; 
gg to a; 

ERRUREXIU S.CANKAJJJ.EBiU:'ALSti - — ..... 

GOODEXITJ END SCANMASTER* 

STHEAM PROCEDURE F00LRC1Y(FIEL#C0NTH0L»5UEJ; VALUE C0NTRC1L#SUEJ 

BE.Ci.Itt C-CMME-N.T -FC-O-LfiOY JrU-LL- SET THE . . OUiiaOt^-l£UJ--U£_X*l£-. 

I/Q DESCRIPTOR FIEL TO CONTROL AND THE SIZE Tu SIZE; 
DI *-FlEL* 

ai.*-.i)i.±2.; . 

Sl*LOC SIZE* 

s i «• s i + 7 ; 

DS*.CHRi. - - 

si«-i_oc control; 
si<-si+6; 

. .. DS*2 CHR> ...- 

end foolhoy; 
boolean stream procedure enterdihectqry cdir» ro^n* rqwv* posn#posv» 

- Ace* N-, - roj; 

COMMENT *ILL ENTER This ENTITY IN DIRECTORY 

IK N, ACC AND RC KILL STIlu LEAVE a CHARS, 

at the end uf. a oikeciciky.. block* procedure: 

will automatically update parameters showing 
last row a..d next character position to be 

TESTED FOR .POSSIBLE-. EN.I .Kl.i_..£flU££lUjfi£_£ElURNfi_ 
TRUE IF ENTITY ENTERED IN DIRECTORY 
FALSE IF ENTITY NQT ENTERED INDICATI 

IhE.RE .mluLD t±A_,E B.EE2- OIJIEOXQRY- . 

overflow; 
value rowv»posv»n; 

BEGIN LABEL. TRYNExiROWr FIT* NJTOI/OIERf EXIT; 

LOCAL LASTRCw»Ei>DUFRL)htTEMP»X»Y; 

TALLY4-H; COMMENT ELtVEN 13 LAST ROW OF 

_ ._ ARjjAjf OlMXiaRYJ. 

la5tr0w*tally; 
si«-dir; 

RQW.visitJSi+11; 

di«-lOc temp; 
ds*wds; si«-temp; 

- - . ..__6Xl__friJ_ + _U.__.. - „C.QMM£N.I_Pp_iilI._LNJi_ll.F B.LK.; 

Sl*SI-a; COMMENT BACK UP 4 CHARS; 
ENDOF«OW*Si; COMMENT WILL BE ENOQFROW. 

-EJHAJ.-T£AT-WlLL_B.L-EXia- D UMM Y. _ 

ENTRY WHEHE =0 AND NEWRC 



00074200 
G0074300 

00.0/4400 

00074500 
0007460C 

-Q&aua&XL.. 

000/4800 
00074900 

ooo.__5aaa... 

00075100 
00075200 

- -Q qO 25 300-- 

OO0V5400 
00075500 

.....00X1/1x600 
000('5700 
00075800 
00075900 
00076000 
00076100 
q.q± 76-200 
00076300 
00076400 

_. 00 07-6-5-00 
00076600 
00076700 

QflflZ6u8flO... 

00076900 
00077000 

O..QMZXQO. 

00077200 

NG0O077300 

aO.Oi.7400 

00077500 

00077600 

Q.O0.Z7700. 

00077800 

00077900 

_ OjQ.C7_8.0,O_Q 

00078100 
00078200 

..._QO.0Z.fl.2Q_3.. 
00078400 
00078500 
QQ0_7_i6i_lO 



oi*posv; 



CONTAlNo ending 
PREVIOUS EN TITY 

ENTERED IN THE 
COMMENT POINT INTO 



RECORD # OF 
WH IC H WAS 



THE 



00078700 
00078800 
00Q 7B900 

00079000 

00079100 

_Q00 792QQ_ 



iL.Q__J__ 



directory; 

THE DIRECTORY 
ITSELFJ 



00079300 
00079400 
QQQ795QQ. 



si«-loc n; 
if sc="o" 



susi + 7; 
then begin do*chr; si*rc; 

S4<-iUiJ-0i.a CH-Ri- 



gd to fit; 



00079600 

00079700 

. 0007-9-8 00 



-S.I +LO.C. _£__._U_£R QUA 



end; 



00079900 
00080000 

noOHQioo 



• t 



i .(. 

h 

16 
16 
17 

111 

- 
I!) 

I 

""l 

7/JI 



28 
29 

30 

■il 
:*2| 

■i.l 



»;.■ 
« 
u 

45 
«6 
*7 
•8 
«9 
50 
51 
52 



di*x;di 

NCX*DU 

di*x;di 



D I «-U0C 

*di+i; ) 

DI>.LDC 
♦ DI + W). 



X/ IF 8 bCsDC THEN JuMp GUT 1 TO 'I K Y ( \E XTROW; SI *SI -8 ; 
XI IF 2 SCsUC ..THEJSL.JUJMP_._CUT.. I TO TH. j\EXIRQ.kiSX*SI-8. 



trynext 

S1*L0C 



ROW: 

rowv; 



di*pqsv; 

ENTER » SJ«-LQC Hi S1*SI*7; - 

ds*chr; 

SI*-ACC/ N(Di.*CHR); 

5-1*. ACi- - iJI..t-i.Uii 

ds*3 chr; 

x«-di; si* Loc x; ui*posn; ds«-wds; 

- GO TO-FIT; 

iI<-posv; 4_os*lit " o " ; j i 



D.I*LO.C LA_I.h 
IF 8 SC»DC 

tauly^rowv; 
rowv* tally; 
si*loc rowv; 
si*dir; rowv 

.S.I*DIH. 



.9.cS.L.*.S.I.tflJJ. 

oi«-loc temp; 
ds*wds; 

7; OU. L-C T 

TALLY*-*; TA 

oc y; ds*wos 

Q1±X1. UD..TO. 
TALLYfi; ENT 
TALLY*Oj ENT 

END ENIEIDIH 

DATACARDCBU 
LOCAL X) 
LABEL A/IaCJ 
Dl*LOC X, 

; Dl*ui-e 

iIt.dlif.EJ 

N GO TO 8; 5 
GO TO B EL- 

TALLY ti; ti.0... 

TALLY4-0; 
DATaCARD*TAL 

.._EAD._JiAlA£Aaa 

STREAM PROCEDURE GETSEQ CDu«»N# SEK ); 

VALUE n; 

... BL&in 

si«-dum; di*o 

chr; 

-..- -ENO-liEI 

cdom* N* SEK ) * 
VALUE Hi 
BEGIN , 



U.Wi 

then go to notfit; 
tally+tally+i; 

014-rown; ds*wds; 
tsi*si+e)j di«-uOC 

.. . COMMENT UHQAlE.. 
BLOCKS IN 
DIRECTORY 



x; DS«-WUS; 

M. D.I.ftLC.IOHY. 

kORD ONE OF 
BLOCK #i; 



si*temp; s 

di* temp; 

FIT: 
NOTFI 
EXI.T.I 
BOOLEAN STREAM PROC 



i*si + ; 

SU L( 

T: 

LOURE 
BEGIN 



OS* 6 LIT "s$SV 



i 01*01+7; DJ»*CHB.i 

LLY*TALLY+i; Y*tALLY; 
i 

En.ILR.1 

erqiRectory-tally; go 

EROIRECTORY«-rALLY; 
kc.lQ.RY; 

F'F.i 



0i«-ul + 2; 
; 



to exit; 



IF 3 
IF 3 



SC = D 

SC*DC 



C THLP 

Then 
k\ 

Bi 
C» 



USi-j; 
E GO to a; 

la. ..c; 



ly; 
; 



DS*N 
STREAM PROCEDURE SETSEQ 



ek; 

SU-CU. 



00080200 
00080300 
00080.400 

00080500 
00060600 

0Q.0a.Q7.QX) 
00080800 
00080900 
008 I 000 

00081100 
00081200 
00081300 
OOUbUOO 
00081500 
00081600 
00081700 
00081800 
0008 L9.0Q 

00082000 
00082100 

00.082200 
00062300 

00082400 
.QO.ttA2&n.O... 

00082600 
00082700 
QQ.Q626Q0 

00082900 
00063000 
.0.00.634.0.0-.. 
00083200 
00083300 

..oo.o.ei.40.o. .... 

00063500 
00083600 
.0.006 3 ZOO 
00083800 
00083900 

QDIL64.00.Q.-. 

00084100 

00084200 

ao_aejLiQii_ 

00064400 
0006450Q 
-Qfl.0 6 46.00.- 
00084700 
00064800 
M0J4S0JL 



00065000 
0006bl00 
00085200 



00085300 

00085400 

.00Q6550CL 



>3 
54 
56 



si*sek; di*oum; 
ds*n dec; 

.ZNJ3_S£liitflJ 



INTEGER STREAM PROCEDURE cOMPaReCCAR 

VALUE CAR* TAP 

_.__ st«.lcic cam; 



*taP*n .; 

» n; begin label 

G.U-.L0X...TAP1 



00065600 

00085700 

_0jOQ 65.^0.0 



a; 



00085900 
00066000 
.00-086100. 



ft 

3 
4 
5< 



">kJ 



tally«-o> uc to a; end; 



GO TO iiltal 



i: 

?.l 

J') 



2li 



111 

,.w 

'10; 

i I 

■«r 

14-4 

4S| 

461 
4! 
48, 
J4$| 



9 



IF N SC>0C ThtN dtGlK 

si*si-n; di«-di~n; 

IF N SCsDL mEN....B.£(ilN ..lA4-.Jjr.tlj 

ELSE TALLY*2i 
A: CQVPARE«-TALLYi 

EJSlO- Caw PARE i - -- __ - 

INTEGER PROCEDURE TAPEMAKERC I \P , ACC , N ) ; 
VALUE INPJ 

I.NT£G£R_J.NE,4i; - - _ _ 

ARRAY ACCCOJ; 
BEGIN 

BflCiiAil P.AJXiiINiJj-LI.iLT.Jiuil*PUM:HljVGii ... 

bOOL> 

PATCHC AHU I N>NEEDP A TChCARD* RENTING; 

I INTEGER MA5J1RS.E W' C ARQblQ/ LAST Kl.SE.tfi 

LABEL A'BtC'O'E't > G >H# j, L * M> EXI T; 

COMMENT SET SOME INITIAL 

PA.RAM£IOS**.t**i 

IMQOUT«-{Nt'HhC-nMUD 5/ 
REL«-1J 

IF 5.EQA.1.0.G. OK StfiCTUG THEN RENUMIN.G.t.LRU.fc.i 

PATCHATOG OR PATCHINGS ThEN P ATCH I NG*TRUE ; 
PPP*1 OR PpP«3 THEN L 1ST ING*TRUE; 

P-.PP>1 THE-fv P UNO-RING-* TRUE; 

LISTING IMtN BEGIN 

pag; wlqbhog(acc*n» printcoj#i20-n); 

PRINTLINE.; Sr'.AC.ERLlli 

END; 
PUNCHING THEN BEGIN 

JiLMJLP.J.NCJli...aLJ3.HMD.li.i.AC£ji«^.liJ4CH.{JUj_..QJJ.... 

release (punch); 

end; 

-THEN I..MGt.CRECllNP3-lJMuO 5J 

INP<3 THEN A 
INP»3 TH£N B 

a 



IF 
IF 
■IF 
IF 



If 



ELSE. IF. INPs5 



INP.<i. 
TO IF 
ELSE IF 



IE 
GO 



THEN 

c; 



COMMENT 
TAPE IS 



A, 

IN 



B»C 

.ELLU._.. 



A-t IF- 



ELSE 

-RECi.lNP.-J =-GIY 1.HEK GQ ... 1.0 



.01. 



IF. 

IF 



-W_CQMM£iil LA&I. 

HAS BEEN READ; 
MOVECiO,FlNARR[ I «G* li + 11 * DUMMY ) ; 

.NQ..t.-P.4XCtlIWG T.H£hj aO ID £1 



00086200 
00086300 

.000.66400 

00066500 
00066600 
000.66X00. 
00066600 
00066900 
..-QUOttZOOO.. 
00067100 
00067200 
aO-OBJ.3-00-. 
0C067A00 
00067500 
Q 00.676QQ 

00087700 
00087800 

aO 06-794)0 
00086000 
00068100 
0.0 0.682.0.0.- 
00088300 

00068400 
.QQQ.y&B^.Q 

00088600 
00088700 
00068800 
00068900 

00089000 
.0.0.0^9.1.00.. 

00089200 
00089300 

QO.Q8.94O0 

00089500 
00089600 

0.00696^0 

00089700 
00089800 

4-tlAG.fcQO.Q. 8-9.900 

00090000 
00090100 
QUO 902-0.0... 



PATCHATQG THEN GET S£0 C OUMM Y [ 9 ] » B> M ASTERSeQ > 00090300 
El_SE GET SEU(0UMMYC0]*6*MASTERSEfl 3 i 00090400 



COMMENT OC 

tape is input; 



COMMENT CA 

D£CK_„I.§ IN 

MAY BE PAT 
CARDS SO T 



JF -P. AJCHOAHO lH- IB EN-GO- -VI - .fi.-H.SE -0Q-4-Q-F 
RDIMG 
8t RCAOCFINClNP]»XO#DuMHYt*3)[H3iGO TO 0; 

- HI. IF- XNPs.3-08 W*5--1-H£N- LQCKXFINC-INPJj-EEUEASE 3 ; 

IF PATCHING THEN Go TU J ELSE GO TO EXIT; 
RD 

PJJ.T-.... _._ _, 

CH 

EST; C* IF NOT PATCHING THEN BEGIN 

JH- - R E L E A ££ ( C A R OIL - _ — ,.___ 



COMMENT TH 
...A £AT.CH_5A 



IS IS 

rd; 



MOVECiO,CARt)CO)*UUMMY>; 
IF DAlACARD(CARD(03)ThEN GO TU 
£L S.L_.iit.G.Li._OQaUEf.£.lRUE } G Q-DUI 

end; 

JLiJLELEME C C ARP 3 ; _MOj&ILflii_C A3Jll.Q±i.PAJ.&hmmmiL 



00 09 05QQ 
00090600 
00090700 

- 00-090^00... 

00090850 
00090900 

...J3. 009 1OOO-. 
00091100 
00091200 

— 00091300- 



00O9U00 
00091500 

.oaOiiAoo. 

00091700 
00091800 

.oomLaoo. 



• • 



"M 



IF DATACARO^CAKD(O)) 0009200Q 

THEN BEGIN 000921 00 

IF PATCHAT.QG Iri£N . .ad S£ JC PA 1 CHUUMM TC9 J ,3* C ArtObLaO 0QU92200 

ELSE GETSEQCPATCriiJUMMYt0]»6»CAK0SEa); OQO92300 

PATCHCAWOlN*TRUEi 00092400 

GQ.TQ.Gi .0GQ925Q-Q 

END 00092600 

ELSE dtvjIN 00092700 

CCBUFF.>TKUL>PAT,CHIi.vG<-FaLS.£; 0.0092800 

needpatchcmkd*kalse; go to e; 00092900 

END* 00093000 

J» patching<-fal3e; COMMENT ENIERE.Q wjien... a*b*c..q.h 0(1(293.100 

UCMU1MU J.S COMPLETE BUI PATCH 00093200 
CAROb' #A( STILL HAVE TO BE ADDED . 00093300 

PATCHING IS SET FALSE- BUT .. CARDS 00091400 

ARE READ AND TAGGED ON TO THE ENQ00093b00 
OF THE PREVIOUS TAPE IMAGES* 00093600 

N£E.DPAlCHCArtD<-rR.LE; 00093700 

IF PATCHCARUlN THEN GO TLi l ELSE GU TO Hi 00093800 

COMMENT TEST 00093900 

WHICH TO TAKE- 0.0.0.9.4 000 

PATCH CARD OR 00094100 

TAPE IMAGE. IF 00094200 

CARD IS LESS IT 00U94300 

GOES, IF CARD IS 00094400 

EQUAL IT GOES AND 00094500 

REPLACES TAPE IMAGE" 00094600 

IF CARD IS GREATER 00094700 

IT WAITS; 00094800 

Gl X* COMPARE CCARDsEajMASTEH-bLCi IF P ATCH.A TOG ...THEN &... LLSE .. .6J* 000.94900- 

IF Xso THEN dEGlm 00095000 

NECDPArCnCARD«-FMLSE; GQ TO E> ENU> 00095100 

IF X*l THEN. BEG I.i\ .0-00952X10 

NEE0PATCnCARD*-FAL3E;G0 To H END; 00095300 

r\lEEOPATCHCARD*TRUE; COMMENT CARQ LESS THAN 00095400 

TAPE IKAGEi 0X1095500 

30CLMRUE; MQVEC10, DUMMY* ACCUSE); 00095600 

l« patchcardin4-fal.se; mqvecio*patchdummy*dummy a 00095700 

"'i COMMENT TEST FQR ..._ _ QQi2958Qa 

rfseQuencing; e* if renuming then BEGIN 00095900 

f, LASTRESEQ*LASTRE5E3 + SEQlNC; 00096000 

J"' IF SEQAIQu THEN SETSEQCD.UMMYC9J#.ai!.LASIRESXfl..) 0.0.0.9.640.0 

I" ELSE S£TSEQCUUMMY[03#6*LASTRESEQ)i 00096200 

'" END; 00096300 

i-l ..COMMENT . NQW MAKE _ 00_09_64QO 

NEW TAPE; IF IMGOuTsO THEN MO VEC 1 * NEWRC,FQl7tC LlBQUTl X JC oT) 00096500 

; M0VEC10*0UMMY,fDUTCLIBQUTlXHIMG0UTxn +1)); 00P96600 

IF. .LIST IMS THEN. ..BEG IN ..__. Q.Q0.96ZQ.Q. 

M0Ve(1O*FUUTCLIBOUHXHIMgOUT*11 + 1}#PHINT[2] ); 00096800 
GETREL(R£L»PRINT[133>; 00096900 

- __ PR.INlL.IJiE/ _._ MPiZfiOJL 

END/ ' 00097100 

if punching then begin 00097200 

- .._ . MQVEdOf FQUTCLlB0UTlX](IM60UTxll-»l.)»PUNCHC0))J 0QO97300 

RELEASECPUNCH); 00097400 

end; 00097500 

_ COM_MENT R£SET_ __ _ 000 9 Le 00 

parameters for 00097700 

another pass-dump 00097300 

output tape b_lo_ck _ __ 0097900 



VI 

:n 
:u 

-HI 

Jti 
:v 



44 

|45 
46 

r. 

its 

so 

51 
52 



53 



EXIT 
STREAM PROCEDl 



if necessary; r_l*rel*i; 

if buot then begin move ( _ 0* accu me 

aQ.0LtFAL.3Li _ iMlLi - 

IF NEEDPATCHCARD THEN BfctilN 

ELSE IF INP<3 THEN BEGIN 

_ _.. IF.. I_E_;U____1__-_I.Y T-HEN -I.EG.I. 

REC[INP]*RECCINP] + l; 

IMG*IMG+W IF IMG>4 THEN 
- I..M^.tJl;.„HLAa.if.I^.Ll^4.j.S.6.xl-...IiiA 

NEWRC«-NErtRC + i; 

lMGQUT*IMGQUT+i; 
- —-If.-IMGQuT-iLa. lH£_L_a£_UN 

WRITECFOUTCLIBQUTIXJ ); 
IMGQUT<-0; end; 

- G.a in ___ _ 

IF NEEDPATCHCARD THEN C 
ELSE IF INPO TH£N A 

ELSE ..IF. It.P*3 ItLEN-B 

ELSE IF INP=3 THEN 8 
ELSE c; 
IF LISTING THEN .. P.Atfi TAPLMAK 

END tapemaker; 

>URE AODR(FlEL^SAVEQ)i 

BEGIN S1*F-IEl; SlfcSI+5; 

DI*SAVEDJ DI*Ol+b; 
DS*3 CHR> 

. . . E.NQ.. .A DDR/ 

boolean procedore opened (input); 

value input; integer input; 

begin label exio 

if qpenc input} then begin op 

End; 

J F NQL... riEA.QiJlB.E5T UB.T..C.1N.PU.T ; 

ohened+false; oo e 

OPENED*TRUE> 0PENtINPuT3*TRU 

EXIT? END. OPENED/ 

INTEGER PROCEDURE MOVEUPCSTQP, A LD> 

COMMENT MOVEUP TRANSFER 

_ JNP.U.J. ..HASLLEfL.. 

UNTIL STOP IS 
■ 1ST CAHU IM 

_ Xf-EfiEQ. :.. 

M0VEuH=O=UK 

MOVEUP" 1 S D1R 
_____.U__Eli£__£sN_i.L_ 

.*stop; 
integer stop* all; 

BEQlii_.LAfl.EL- AJ — -.._ ' ._ 

INTEGER J*K ; 
BOOLEAN SA#SC,PA#PC; 
5A*5iftAJ_l__i _ _. _ 

scseqctqg; 
pa*patchatog; 

pc» pat chctog; ___ 

SEQATnG^SEOCToG^PATCHAToy^-PA 
IF ALL'! THEN 

_. J EG I M— -.WHILE Hi DO 

BEGIN 8l>GE;TNExTBLQaiDlR£CT0RY#RQW#R© 

GTX#GTY); 
IF ENTERO l RECTO RY.O IRECTOHY.ED flflH-EPHO 



»oummY); 

END 

N__ 

BEGIN 
R_-I.*J4iJXNDi 



ERt-Qi 



00098000 
00098100 

_ QX__>____20Q 

00098300 
00096400 

..._ 0JJ.09iL5ilD 

QQQ96600 

00098700 
._a,_UL&Q J.-Q.CL.Q _tflfli_fl__ 

00098900 
00099000 

_. _Q.QJ_tt9.4-aO... 

00099200 
00099300 

- 00099400 

00099500 
00099,00 

Qomszao 

00099750 
00099800 

00099900 

00100000 
OQlOOlOO 

- .Q0_-UQ2-G0- 

00100300 
00100400 

QjQi.a0.5Q0 . 

OOlUObOO 
00100700 

__a__ojia__c-.- 



ened«-thue; go exit; 

t.hjej_ el&_u_-l 

xit; end; 

e; reccinput3*-2; 



s programs f 

I___J_.L_L.__U_Ji_l_ 



ROM 
J__J.__P.J_ 



REACHED WHE 
AGE OF PR0GR 



ectory qverf 
for ward un _j 



RE STOP 
AM NOT 



LOW 
APJLL 



VALUE ALLi 



00100900 

00101000 
Q.Q1U.11QQ. 

00101200 
00101300 
QQJ0140Q 

00101500 
00101600 

.QjHOiZOD.. 
00101800 
0010190Q 
D.Q.lJ.2Qi_Q- 
0010210Q 
00102200 
-Qfli.02300. 



00102400 
0010250Q 

00102700 
00102800 
..--.010 291111. 
Q010300Q 
00103100 
00.103300 



tchcTog«-false; 



00103300 
00103400 
00103500 



W*tI*II»ACCU 
MtEOPOS.EDPa 



MD#NO# 




00103600 
00103700 
QQIQ.BOQ 



• • 






27 

Jill 



(ill 



4.) 
44 
tS 
«6 
(7 
48 
49 
50 
61 
52 
53 
54 
5S 
5ti 



y. 



ACCUMD»N0*NEwHC> THEN ELSE 001^3900 

BEGIN HQVEUP«-1; GO TO A/ END; 00104000 

pa.UA.PvtLiaiN.-U-r; - 00104.100 

J*TAPE»AKER(Ll8lNlX*ACCUMD#ND)i 001U420O 

end; m9veup*-o; go to a; 00104300 

E-NOJ. 00104400 

IF C S T0P=1 AND REC.LldlNIxls-iJ 00104500 

OR RECCLI:3INIX]=ST0i j THEN BEGIN 00104600 

- _av_uP*o* gu.a; end; ooioayoo. 

IF RECCLlBtNlXJ> STOP THEN BEGIN 00104800 

M0VEuP*2> GO A; tNU; 00104900 

DO BEGIN Bli-GET.NEXTBuaflXJ3IRE-C:r.OHY^R0Wi.R0WjaixII>jkCCUMDxN0* 001Q50QQ 

GTX'GTY); 00105100 

IF ENTtHJlRECTQRYCJlHECT0RY#ED8UW»E0R0W* 00103200 

ECP0i*£UP-QS*ACCUMJ,ND4NE*HCJ IhENXL-SE - Q01Q53OQ 

BEGIN MOVEUP*-t; GO A; END; 00105400 

POSTAPECLIBINIX); 00105500 

J*TAi?EJ4AKER.CLlBlNXX*ACCUM.0.*.ND-il- 001.05600- 

ENO UNTIL GTYsSTUP; MUV£liP*0» 00105700 

A: SE<3AT0G«-i>A> 0Q105800 

- SEOCT.00.__Ci _ 00105,900. 

patchatqg*pa; 00106000 

patchctog«-pc; 00106100 

end wov-eup; 00106200 

LABEL Eli; 00106300 

FILL TESTARRC*J WITH 0010O40Q 

COMMENT O; OCT 60 6.0 DO 6.06.0.60.6 OQ.Q/ Q01Q6500 

COMMENT 18; 0017360006060606022* 00106600 

COMMENT A 4; Uc 12160606060606004* 00106700 

COMMENT ADD ...21 0.0X2 12.42iL606IL6_Q6QQ.2j Q0.lQ6.aQ0. 

COMMENT AF'TER 3* OCT 2 12663255 I6O6OO3* 00106900 

COMMENT B 5; UCT2260606Q60606005* 00107000 

COMMENT C 0> Uc..t2.aM.&0.60.6..04Q.6i3.Q.6..» 0.0.107.1.0.0... 

COMMENT COPY 2b; DC T2346477Q60606032* 00107200 

COMMENT DELETE 7i OCT 2425432563256007* 00107300 

COMMENT DIR 2.3i .fl..C.T.2 41151.606.0 6 0602Z» Q.Q1.0?4.0.Q 

COMMENT DISPLAY ^4* UC T 24 3 1624 7432 1 70 30* 00107500 

COMMENT END 6. (. CT25452460606060 10* 00107600 

„. ..C..&M.MEN.T L«M gjjj UC T.2_6_l_M.46060,602-6i ..„ _ QXJ.LO.ZZOQ... 

COMMENT LIST 9; OcT 433 16263606060 X\* 00107800 

COMMENT MAKE 2 1 ; 0CT442 142256o6Q6o25* 001Q79Q0 

. COMMENT. O.N _._LQ._ Q CI 4M.56QMM.6 060.12* 00108000 

COMMENT 11; 0CT47216J2330216013* OOlOblOO 

COMMENT PATCHC IK* UCT47216 J2 3302360 31* 00108200 

COMMENT ..EUliQK ____ UCT476445333U 6060 j4* 00108300 

COMMENT RENAME 13* QCT5125452144256015* 
COMMENT REPLACE 14; 0CT5 1254/4321232516 * 

COMMENT S£QA 15_._ . QCT6 225502160 606017* 

COMMENT SEdC 16; 0CT6225502360606Q20* 

COMMENT SINGLE 25/ OC r 62 3 1 452 7432560-3 1 * 

CP_MMENl_Sflil. ^6j__..U..CT.62.4Ml6.360606Q.i2£ _ 

COMMENT WITH 17; OC T6631633060606021 * 00 

COMMENT 0C«D II OCT002351246060600 1* 00 

__HM.E_.____. OCTllllll lllUU lOO; 00 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%i%%%%i%%%%%%i%%%x%%%%%%i%%%%%%%%%%%%%%%%%%00 

IF NOT SCANMASTER THEN BEGIN 00 

UUTPUTV4.1; flp output; _nd j xm 

IF NOT DISTCG THEN NEWRC«-i; 

IF DISTOG OR MKFTOG 
—. - _ THEN BE_lN IF __ _______ I. _£_L_B_ ( LIB 1N I X l_XfcL__LJ____I__ 



00 
00 

.0.0 

00 

00 

JUL 



106400 
108500 
10 6600 

108700 
1U8800 
1 068 50. 



108900 
109000 
109100 



109200 
109300 

1QSL4O0. 



2< 

3 



00 
00 

.__. 



109500 
109600 
______ 



5 1 

6 

7 

8 I 

9 

10 

111 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 

20 I 

21 

22 

23 ( 

J" 
25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

3b ( 

36 

37 

38 ( 

39 

40 

41 . 

42 

43 

44 ( 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



& 



m 



£;- 

5.8, 

21 

K" 

»i 

Ml 
31 

32 

:,3 



ouTPjrv*5* go output; end; 

RECTLlBlMlX]*--?; COMMENT SET INPUT TAPE POSITION/ 

ao**irW4Jiix_j(_4.i__ - - _ 

II* MKABSC0IHE0T0RYUI8INIX x 3* 13)* 

COMMENT INITIALIZE PARAMETERS IN CASE 

- e.riUrEUU.ii£ GETLv£XTJi.afl IS cali Fn in 

LUUK AT THE IiN^UT TAPE* 
61«- true; 

..._ £.N-D4 - _.... ___ 

IF DISTQG AND DIRTQG THEN BEGIN 
PRlNTDIRECTLJRY(Ll8IMXx3>; PAG; ENOi 

IF .MQI-ai S T UG_-LHEjy._.£.E.fi.l.iy 

6CJUT«-i; EOriUW + 9; euP0S*MrlAe5(DIRECT0RY[9*l])| 
OlRECT0RYC9»O]«-i; 

w..BIJ.£l£.au.Lt.L..I.a.,LluT.ij(lj; ...._ 

writecfoutClIbqutix]); 

WRITECFQUTCLlBOUTlXJ); 



MORE! 



displayfunction: 



m« 






end; 

LlSTQG«-PUNTUw4.rtlTHTuG*AFTEHiOG«-SEQATOG«-SEQCT0G* 

A D D T Ufi <-.AD.D END I..0 G.«- ADD A.F I ERlQ G «\P A I C.HJ QG±R£P.LAC£laG *•- 

PATCHATUQ4-PATCHCT0G* 
OEUETETOG«-RtNAMETOG*FALSE; PPP<-0; 

TEMP *.. ...S UflC.fi HANDLES i _ ._ 

IF TEMP=Q THEN QEGIim 

qutputv«-2; go output; end; 

- C.O.M.M.E.N L tMQ.tL.IiL SkBJLCJ _ ...- 

COMMENT TEMP^QbERHQR 
TEMP*1=SUBCC 

TEMP«2*ENQ C.AflUi.. 

not disTuG then go tu malfunction; 

TEMP-2 THEN 
flEGL N ._ J F. OISPSudCC„ _ .THfcN GO '[0__8B;_ 

if mlistog then ppp,C4?j n*i; 
mpuntog then ppp.uoujm; 
if jlistqg or mpuntjjg then begin 



if 

IF 



IF 



printpu»nAll(Ppp); 

aU]PUTV*3* 
JLQ_OnJ£UJ.i -. 



enc; 



eno; 

if dirtog then go to bu; 

-gAULTDUiEiLT OR Y C I- lB-UHX»3X»—Gfl~.IQ~aaJ _. 

oispsubcotrue; 
if not mlistog and not mpuntog and not llstqg 

. . .A WJ- J«J-l- .-EUtOJlfi— XMJtM 

GO to more; 

IF LISTOG OH MLISTOG THEN PPP,U7UJ*W 

IF PUMTHG OR MPUNTflfl THFN PPP „ fflft 1 1 J»H 



00109600 

001C9900 

...OQ-UOG-00 - 

oouoioo 

0OUO200 

..Qaiininn— 

00110/400 
00110500 

.. 0444-040-0- 

OOU0700 
00110800 

_aoixflaaxj~ 

00111000 
00111100 
0.0 11.1 2.00 
O0H13O0 
00111400 

.00.1115.00 

00111600 
00111700 

Q-oiii-ts-a - 

00111900 
00112000 
04112-1-04 

00112200 
00112300 
0011.2400. . 

00112500 
00112600 
.001 12X00— 
00112800 
00112900 

.0.0113.0.0.0 

00113100 
00113200 

...Q.M1I3Q-Q 

00113400 
00113500 

.JLQl.lifi.flfl 

00113700 
00113800 
001 13900 

00114000 
00114100 
jQjQJULftZOO-.-. 



00U4300 
00114400 

.-043.1X4.S00 _ 
00114600 
00114700 

- 001U 8 00 



00114900 
00115000 

H15: 



-OOJ 



100 



PAG* 
IF 



look<accuma»na*qiRectury*libinix*j*gtx»gty J 

.T4i£N-afc-G4 N UU TPUTV»4 J- . 



COMMENT 
POSTAPE(LlBliilXXl 



GO 
ITEM 



OUTPUT* 
NOT IN 



end; 
directory; 



00115200 
OOU5300 

-O0 H 540O- 



00115500 

00115600 

-O 0U 5 7 



li 



• • 



U l 

,5 L 

16, 

r/i 
m' 

,19 

HI 

21 

an 1 

""i 

26, 
'"I" 

H 

3l"" 

32| 

lil 

> 
,:is 

'VS| 

y~ 

i* 



•u 1 

43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
5ft 
57 



RECCLIBINIX3 * 



BB: 
MAKEFUNCTlQN! 

#AA2 ,EQF 



IF 
. ... IE... 
IF 
IF 

60 

IDENTQNYTYPE: 



COMMENT AFTER PQSTAPE GTX OR STARTINGOOUSbOO 
flECQRD IN RC/ 00115900 

If P.PP/2-....I-M.1S EEIUN ..C0M^£.!U--LX.aJJUu3-.ii£JiUia£0i. 00116.000 

6LQBHQGCACCUMA, NA, PRINT [03 # 120-NA); 00116100 
PRINTLINE; 00116200 

SPACERi 1 )J -COMMENT AL£a.BLAN.K.S-.miN:iL-B.UFF;.. 50-116300 

End; ooii6aoo 

IF PPP>1 THtN BEGIN 00116500 

- - riLAJMPjJNXiti 0.011660.0 

8LQBHDG(ACCUMA/NA*PUNCH(0)* 0); 00116700 

RELEASE(PUNCH); O0H680O 

- ENSJ _ _ ..._ 0.ai.lA9QQ.- 

lM(i*CREC[Ll.blNIX]-l)MQD $'' 00117000 

REL«-l; 00117100 

WHlL£AEOUlti.I^IX.Ji.alY.....OU B£.GIN Q0U72-00 

, PRlNTPUNCH(PPP,lM6»REt); 00U7300 

00117400 

IF .HEC.tLlB.IlNl.Xl/iiIY TH.EA BEGIN.. _ Q.Q11.750U 

RECCLUIMx] + 1 ; 00117600 

HG*IMG+i; REL<-REL + l; OOH7700 

IE IMfi>« THEN a£G.IN..J,Mu.f.Qi 0.011.7.80.0 

READ(FINCLIB1NIX3,56»FINARR[*])J 00117900 

end; eno; end; ooueooo 

fag; _... aoi in mo... 

gu ra moke; 00116200 

QUTPUTV*. j; GQ TO OtTPUT> 00116300 

BEGIN LABEL UElE lLIX#L*.lllPiACLTl vUvaICM Y.P£* ADOTYpE 00118400 

. »IOENTONYTYPE»WRAPUP; 00118500 

LABEL A2'AD00NE; 00118600 

I NTEGER A#8» IMGQxiX* TES4MAKEW _ _ - _. _ &©i 18^©4 

IF OELETETOG THEIN 60 TO (jELETtTYPE ELSE 00118800 

REPLACETOG THEN GO TO REPlACETYPE ELSE 00116900 

P AT CHI£L&_ IJlEN &0... XQ -..cUlCiil YEE.XL.SE ._ .Q011 9.000 

AODTOG THEN GO TO ADQTYPE ELSE 00119100 

ENDTOG THEN GU TO WRAPUP ELSE 00119200 

TO iflENXOiUYIYEEl _ _ 00119300- 

IF LISTOG OH MLlSTQG THtN PPP . C 4 7 I 1 J «• 1 # 00119400 

IF PUMQG OH HPUNTUG THEN PPP , C 46 J U* 1 ; 00119500 

..... IE I&E4JIX* 3 IH.£N.....BE-GIN. _ __ -.001196011 

IF MKFTOG THe N BEGIN IF IOENT IX*LI BINIX THEN 00119700 
BEGIN auTPUTV»2l GO OUTPUT; END; END; 00119800 

.IF . .Q.PEN.ED UlOULX )... LH£.N ._fl£fil]l_E!iO_ ELSE BFGIN 00119900 

0uTPUTV*5; GQ OUTPUT; END; 00120000 

IF LQOKCACCUMA*Na»0IRECTQRYM0ENTIXx3»GTX#QTY) 00120100 

- THEN BEGIN 0UlPUTV<-4 ; GU UUTPUT; 00 120200 



end; 

PQSTAPEUOEnUX); END; 
IF... RENAME T G,.J.ii£N-.aE.51^L 



IF ENTERDlRECrORY(DIRtCTQHY,EDRaW,EORQ«#EOPQS,EDPOS, 
ACCUMB#NB»NEWRC) THEN 

E^&LJiEJ&Jj^flUJJUJJULtJaLi-fiO OUTPUT; END,? 

ELiE BEGIN 
IF EN TERDI RECTORY (01 RECTO RY>EDROW#EDROW*E0POS»EDPOS# 
ACCUMAiNAj>NEW«C) Ihen i ___________^__ 



00120300 

00120400 

J3.0lJifl.5J3LQ. 

00120600 

00120700 
00120800 



-£NU 



00120900 
00121000 

j)o 1211011 



J£ fiZNAMEUDJL 



■PELEIJETYPEL 



ELSE BEGIN OUTPUTV* 10; GO OUTPUT; END; 00121200 

end; 00121300 

THEN TEMP* TAPEMAKEHunFMTIX*ACCUHB>Nfr) 00121400 

ELSE TEMP«-TAPEMAKER(IDENTIX*ACCUMA,NA); 00121500 

GO TO M0«E; 00121600 

_ BEGI N L ABE L UAifi&LfLTIJlflNLL . 00121700 



2< 
3 
4 
Si 



041 



IF MKTDG THEN GO To. U El 
IF LUOkC ACCUMA,NA>DIRECTG 

. 6C TXJ. £ii;.-.HF.KUM.Mv 

GT5*M0VtUP(<iTX*0)i 
TESTU 
3 1 .«• Q£lNExTa.LQB. C DIRECTORY ». 

GTx>Gm; 

PPP«-0; REL*i;iMGuUT*CRECL 

IF. R.UW.I.QG....J.ti.Lfi. RL&1N P.P.R 

BLCBHQGC ACCUMD#ND* PUNCH CO 

IF USTOG THEN BEGIN PPP, 

BLXLBJ1DGXAC-CU.MiU.ND»P_giMtG 

spacerc2j; end; 

if ppp = o then dEGiN gtx«-g 

GC ...T.U. OEtE-T£aflN£i E-NDi. .. PL 

IF «ECCLIBINIX]2GTY THEN GO TO 

PRINTPUNCH(PPP»IMG0UT»REL 
REC[LIBINIX]*RECLLIBI.NIX1 



■St 

H Y * L 1 B I N I X 



x 3*GTX»GTY) TH 



RQW ., H Q.k ., I 1xIIjJI£jC.U.(4Dj.R£U. 



LltUMX.-l) MOD 5/ 

X/iAMJU-i- -- - - 

>#0)J RELEASECPUNCH); 
C4/alj«-li pag; 

.1 #. 1 2.Q - m ) ; . _P RXNXL1NE ;. 

TY. P03TAPCCL1BIN1X); 

STAEEC-LiaiNlX).; 

OELlTEOONt* 

); imgqutmmgout + i; 

+ 1/ . ...RE_L>f_EL*.li 



end; 



I'd I 
rsl 



■H" 



43 
44 
45 
46 

47 

rv 
k.r 

5.1 
01 
52 
53 



IF IMGOUT / 5 THEN GO TO D4/ 

IMfiOUJ«:0; READ CF INI LXaiNlXl/5Q*FXNAaR£.*liWG0U^; 
DELETEDONEJ GO TO MORE; END OELETETYPE/ 
PATCHTYPE* BEGIN LABEL Pi* P2> P3; 

INTEGER JJ - - .... 

IF CPATCHATQu AND SF.UCTUU) 
CP (PATCHCTOG AND SEUATGG) THEN GO TO E2; 

IF MKTUQ.JI1l.IN 

BEGIN IF IDENTIX < 3 THEN 

BEGIN P3S IF OPENEDCIDENTIX) THEN BEGIN END ELSE 

GO T0-E5i. -..-.- 

IF LUQKCACCJMA,NA*QIREC TURY^lDLiNTlX x 3*GTX>GTY) 
THEN GO TO Eft 
- ELSE. PUaTAP.E.aQENriXj; 

end; 

pu if kenametug then 

3E.G.1M 

IF ENTERDIRECTORYCOIREC l0RY,E[.Raw>EDRCW,EDP05*EDP0S, 
ACCUMB#i^B»N£wRc) fHEi. 

EL.bE.. .<LQ IB...EJL.W EjVD EUE.... _._.... 

BEGIN 
IF ENTERDlRECTORY(UIRECTORY,EDRQ**EDHaW*EDPOS#EDPQS, 

AC.CUMAi.NA#N.£.wR.C.)...I.HEN _ 

ELi>E GO TO ElO'END/ GO TO P2; 
END ELSE 

BE-G I-N-4 F- -I4J E^l4JUiL.idJJUX_ T-HEN- . -, - 

BEGIN IF LOOKUCCUMA,NA#DIRECTORY#lO£NTlX x 3,GTX*GTY) 

THEN GO TO E4# 

EF.ftQMM._L.- J* GlXi T.£M.P_*'MOVEJJ.P.l.QJJi J t.OJl : 

IF T£MP«i THEN GO TU ElO; 

IF TLMPsg THEN GO TO £9; GTX*JJ 
Bl»GETNEXTBLOB(DlRECTnRY»RUW*HOn* 1 1; 1 1; ACCUM, NA* G TX* GTY ) ; 

postap'eclibinix); go to pi; 

END ELSE 
_ MG.L.N...„lF._lUEiiIIX>J.„J..Hl..N GO TQ PI ELSE GO To P 

end; 
enc; 

P.21- _ PXAOMB-e - - ■ 



001*1800 
EN00l*!l900 

.00-1220 q.q- 

00122100 
00122200 

_._<HL1 22.2110 

00122400 
00122500 

- .fi-Q. 122600 

00122700 
00122800 

Q&122&QU- 

00123000 
00123100 
001232-00 
00123300 
00123400 

aoi23soa 

00123600 
00123700 

ooiziaao 

001^3900 

00124000 

00124.^00 

0C1242C0 
00124300 
. 00 1.24 a .0.0... 
00124500 
00124600 

0012ft 7XW 

00124800 
00124900 

0-0 4,-25 QQ 

00125100 

00125200 

00-125200- 

00l25ft00 

00125500 

0.01256.0 Q.. 

00125700 

00125800 

0.0125900.. 

00126000 

00126100 

.....O0X262Q4 

00126300 
00126400 

fi.QA2._65.QJ3 

00126600 
0012670C 

..._..QQ_l26mQ_„_. 
00126900 
00127000 

3J0Q 12710 



IF RENaMETOG THEN TEMP«-T aPEMaKER C IDENT IX* ACCUMB'NB ) 

ELSE TEMP«-TAPEMAK£Rt IDENTIX*ACCUMA#NA); 
aa_£O-.-M0R£-l END _P A T C H T.Y.££J 



00127200 

00127300 

.GO-lZZitXtO.- 



00127500 

00127600 

- 00 12 7700 



S> 



REPlACETYPE: ADDTYPE: 



12: 



'lii 



T\ 

It 

V.'.!| 

'-\ 
r. 

in 

37 

;>8 

*v 

3 

3.'.' 



'J!'. 

ti) 



•Wl 
|.|0| 
1 

'''\ 
43 

M 

45 

46 

v; 

48 
49 
50 
61 
52 
53 
54 
5S 
W 

5. 



THEN 



THEN 



GT5«-M0VEUPCGTYM>i 
A.A2J 

pfRQMm; 



AA2» 



A2J 



if replacetug r h e in adi)IM)ex*.witmindex; 

IF MKTGG OR UlBlNlXsAOIJlNDEX THEN GO TO 

IF ADDAf LEiUiiG QH RERtAvtlGG 

BEGIN IF LOQKCACCUMC>NC*DlRECTGRYf L1BINIX x 3* 
GTX* GTY) THEN GO TO E4; 

end •... ; 

ELSE IF AOOtNDTOQ 
3EGIN IF Bl THEiM bfc:GlN PFRQMM/ 

LESXli END.; GQ ID 

END ELSE GQ TO AA2; 
IF ADDAFTERTUG THEN BEGlN 

.C*lS?.*.MQY£MP.C.G.T.y»fl).i.: IE3I.1J E.N.D.. 

ELSE BEGIN PFRGMM; 
Glb*MOVEuHCGTX*0)i TEST1* PPP*0; 

. b 1 «-ge tne-x t b-lqb cd irec tub y* rok,.*-ho.w#..ii*ii * 

accumd* nd'gtx* gty); gtx*gty; 
pcstapeclibinix); 

end; 

pfromb; 

if addindex < 3 then begin 

IF .NOT.- QEEJvE0CA0 i lX N .0Ex)-T-HE.N...G.a TXUESi 

IF LOOKCACCUMA^NA, DIRECTORY, ADDINDEX x 3, 
GTX» GTY) THEN GD TO E4; 

POSTAPECADDINOEXU ENDJ - ..- 

IF RENaMETOG THEN BEGIN IF 

Ef\TERDlRE.CTaRY(0lRFCT0RY,E0fiCW,EDR0fo>EDPQS,E0PCJS, 
■ ACCUM.8#.^a*w£n(«C> THEN ELSE GO TO E10;-- 

TE5TMAKER* 

T APE M AKE R (ADD INDEX, AC CuMB*NB)i 

I F. TEST HAKE R-X-Q W En OO-TO ■ ■■£«* GO - 

IF REPLACETOG AND NOT 
ENTERDlRECT0RY(OIRECT0HY#E0R0wftDR0W*EDPOS#EDH0S» 

AtCUMC* NCj-NEARO THEN Ew^E &0 -10 -E4-Q.i ....... 

IF TeSTMAKER*TAPEMAKER(A0D1N0EX»ACCUmC,NCj XO THEN GO TO tHi 

go tq addone; end; 

IF ENTERDI HEC IXlRY C.D.lRECToRY..*.E.DRovt,£ H Q w > i_QH a # EJ)EC5.* 

ACCUMA,NA#N£hRC) THEN ELSE GO TO ElOi 
TESTMAKER*- 
T APEMAkEIU AilQ.lN.DLXx. A EC UMA# N A It _.. __ 

if testmakerxo then go to eb; go to addone; 
addone; go tg more; 

WRAP.UPS . If . MKFJOfi. T.JttEN. 

BEGIN WHILE Bl DC 

if mpuntog then ppp,uo' iuh 

.... U JJ.L1.SJ 00 ZtiZtL_E£E*JJk tJLUili 

B 1 *G£ TNEX TBLOB (DIRECTORY, ROW* RCW# 1 1M I* 
ACCOMA*NA*GTX*GTY); 
I f. liQI_.£LNlEaiiI.RE C .IDA 3LCD 1 RECTORY ,EDROH ,EDROH* 

eopps#£dpqs#accuha»na*nehrc) then begin 
outputvmo; go outpot; end; 

.g-USXA P E CL IBl-N-lXl7. 



IF 



to adoowex-eaid; - 

withtog then begin 



BEGIN 



TEMP«-TAPEMAKERCLlBlNlX#ACCUMA»NA); 
ENOJENO; 
IF EN TERDTRECT0RY(-DI«ECTQHY *E DR0HyE0ROW*EDPOS#EDPQS»*CCuMA» 

0»NEWRO THEN BEGIN END; COMMENT DUMMY ENTRY INJO 

ENTERDIRECTORY TO INSERT ENDING 

RECQ RD_+ _i OF LAS T BLOB; 

inRifECFOUTttlBOUTlX])* 
WRITE(F0UTCLIB0IJTIX]); 
WRITECFO UTCLI B8QTIX3); 



00127800 
00127900 

.0012600-0 
00128100 
00128200 
DQ1.2.83.QQ 
00128400 
00128500 
OQ 1.2 8 6 0.0 
00128700 
00128800 
001.2.8400 
00129000 
00129100 
QO 12920.0 
00129300 
00129400 
■00129:300 
00129600 
00129700 
00-12-9800 
00129900 
00130000 
OOUOIOO 
00130200 
00130300 
00140400 
00130500 
00130600 

-0^4-30-7^-Q- 

00130710 
00130720 

001407-30 
00130740 
00130750 
Q01.3Q8QC 

00130900 
00131000 
OOlJ-1100 
00131200 

00131300 
0.0-111400. 
00131500 
00131600 

00131800 
00131900 
nni-3-2nnn 
00132100 
00132200 
00 13230.0 



00132400 
00132500 
00132600 



00132700 
00132800 
00132900 
00133660 
00133100 
001332CC 



1.1 
-I 



iil' 

pi 



n\ 
vaf 

29' 
f.2 



3.1 

'k' 
43 
44 



RtWINU CFOuTCLlBOUTIX] )/ 



._aiA£CJ OH.YX 9..J_O.J.t.3 i... 



FOR TEMP*1 STEP 1 UnTIL U 1RECTORY [9* 3 DO 
B£G.liL _ MU-VEX-SiutHlRLCI U.R II, II.M.E* £x n J'FUtTC I IftQlJTJ X 3 ( ) ) 

wRiTECFouTtLiaouTixn; 

END; 



FlXFIB5COUMY»LlBOUTIXiJ 



if dirtqg then 8egin 
pag; printdirectory<9); pag; end; 

IF ._NQT .D1S.T.M ..AND. COPY T.Qti Lh£N _tt£OI4L ._ _ 

REWIND cfoutcliboutixd; 

WHILE TRUE Do BEGIN 
READ CfilUTLLl.aUU-HX.lA 5.* a .&Itt£.ClO&U.&4Al4 1 E UFJ.i-CUUJix3-CL0. 



00133300 
0013340U 

00133600 
00133700 

.00133-800- 
00133900 
00134000 

..£01344-00- 
00134200 

00134300 
OQl 3 4 fl Q 
0C134500 
00134600 
00114700 
00134800 
00134900 
00X35X305 
00135100 
00135200 



end; 

EC OUTPUf 
El * OUTPUT 
£2*. OUTPUT V. 
E3* OUTPUTV 
E4» OUTPUTV 
£51 OUTPUTV 
E6» OUTPUTV 
E7» OUTPUT 
£8* OUTPUTV 
E9I OUTPUTV 
ElOj OUTPU 

El 

OUTPUTI 



end; EOF* 

v*o; 
v*i; 
t2i 

♦ 3; 

*4j 
♦5i 

♦ 6; 

v*7; 

♦ a; 

♦ 9; 

TV*10J 



1? OUTPUT V*ll 1 

pag; 



WRITE CCF LLIBQUTIX],56, q IRECTORYC 9, * 3 ); 
GO TO E3; 
END makef-Unciiun; - - 

go output; 
go output; 

go qutp-ut; 

go output; 
go output; 

GO OU.TP.Uli __ _ _.._.. 

go output; 
go output; 

GO OUTEUli - - -...- 

go output; 
go output; 
go i.U-.Q.iLte.y.Ti _., 



WHITE (LlNE» SWFLUUTPUTV]); 



.LAAT..CAB.Q.J 

end;end. 

00000000)x> 



.. . ElNDt 

LAST CARD ON OCRDING 

A40+PSTACKCF+13) = T3 



TAPE 



00135400 
00135500 
-0.Q1J56OQ— . 
00135700 
00135800 

.001-35900 

00136000 
00136100 
.013136200- 
00136300 
00136400 

.QOl-i65O0- 

00136600 

00136700 

001.36800 

00136900 

0013700C 

ii.auzi.aa- 

00137200 
00137300 
00137 400 
99999999 



_ 00Q(KLPi}a,0QQQQQ.00_lx^AAfl±O_ 



li 



10 



LABEL 0O0OO000OPRIMEK001751O0CC tX OB JLC7 / HE AU ; r I LE SOLiRCEF iLE sSYMBOL/MAKC ASTIEND* 



OBJECT /READ 



I,' 1 

H 

I 
M 

v.;, 

i ; 
in 1 

is 
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